[COLOR=royalblue]Function[/COLOR] OterBlanc(Valeur) [COLOR=royalblue]As Integer[/COLOR]
OterBlanc = [COLOR=royalblue]CInt[/COLOR](Valeur)
[COLOR=royalblue]End Function[/COLOR]
[COLOR=royalblue]Sub[/COLOR] OterBlanc17000()
[COLOR=royalblue]Dim[/COLOR] I [COLOR=royalblue]As Integer[/COLOR]
[COLOR=royalblue]For[/COLOR] I = 1 [COLOR=royalblue]To[/COLOR] 17000 [COLOR=seagreen]' Modifier la valeur en fonction du nombre de ligne à traiter[/COLOR]
Cells(I, 1).Formula = [COLOR=royalblue]CInt[/COLOR](Cells(I, 1)) [COLOR=seagreen]' Modifier la valeur de la colonne en fonction de la feuille[/COLOR]
[COLOR=royalblue]Next[/COLOR] I
[COLOR=royalblue]End Sub[/COLOR]