Essaye cela :
Code :
- For i = 1 To Range("A1" ).End(xlDown).Row
- Range("B" & i).Value = Replace(Range("A" & i).Value,".","" )
- Next i
|
Si ta colonne se nomme "C", remplace les "A" par des "C" et si ta première ligne est la 5eme, remplace "For i = 1" par "For i = 5" et voilà.
Attention, si dans une cellule, il n'y a rien, la boucle s'arrête.
Voili.