Sub SupprimerDecimales() Dim lResult As Long Dim lnumber As Double Dim plagecell As Range For Each plagecell In Selection plagecell.Value = Int(plagecell) plagecell.NumberFormat = "0" Next plagecell End Sub
Ce code vous aidera simplement à supprimer toutes les décimais des nombres de la plage sélectionnée.