Bonjour Pascal, Re Munchkin, Re Pascal, le Forum
En complément d'info, sans préciser de plage on peut aussi faire ceci :
Sub ValueZeroClearing()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
If Cell = 0 Then Cell = ""
Next
End Sub
Cependant, la méthode du Cells, qui n'est pas applicable ici, peut s'avérer bien plus utile et rapide qu'une boucle pour certains "nettoyages globaux" sur une Feuille :
Sub FullClearing()
Cells.Clear
End Sub
Sub ValueClearing()
Cells.ClearContents
End Sub
Sub CommentsClearing()
Cells.ClearComments
End Sub
Sub FormatClearing()
Cells.ClearFormats
End Sub
Bon Appétit
@+Thierry