Macro supprime 0 mais toute la ligne

Bonjour,

J'utilise la macro ci-dessous pour supprimer les 0 dans une colonne, seulement elle supprime toute la ligne.

Est-il possible de lui dire de "remonter" la colonne lors d'une suppression d'un 0 plutôt que supprimer la ligne ?

Sub suppr_0()

Dim i As Long
Application.ScreenUpdating = False
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(i, 3) = 0 Then Rows(i).Delete
Next i

Application.ScreenUpdating = True

End Sub

D'avance merci

Bonjour,

Remplaces:

If Cells(i, 3) = 0 Then Rows(i).Delete

par

If Cells(i, 3) = 0 Then Cells(i,3).Delete

Cdlt

Merci pour ton aide.