suppression des cases=0

Bonjour,

Sélection de la plage et lancer cette macro.
'---------
Sub jj()
For Each c In Selection
If IsNumeric(c) Then
If c.Value = 0 Then c.Value = ""
End If
Next
End Sub
'-------------
Salutations
JJ

"Olivier" <Olivier@discussions.microsoft.com> a écrit dans le message de
news:2937E515-4F18-47DA-B594-7D0300360CE9@microsoft.com...

Bonjour.
Dans une suite de chiffres je voudrais supprimer toutes les cases égale à
zéro en passant par une macro.
Merci pour vos réponses.

Bonjour.
Essaie :

Sub test3()
Dim c As Range, cell As Range
With ActiveSheet.UsedRange
Set c = .Find(0, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Do
c.ClearContents
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub

Cordialement.
Daniel
"Olivier" <Olivier@discussions.microsoft.com> a écrit dans le message de
news: 2937E515-4F18-47DA-B594-7D0300360CE9@microsoft.com...

Bonjour.
Dans une suite de chiffres je voudrais supprimer toutes les cases égale à
zéro en passant par une macro.
Merci pour vos réponses.