Suppression des lignes dont la valeur est égale à Zéro

Bonjour à tous,

Je ne suis pas très douée avec les macros, raison pour laquelle je sollicite votre aide.

J'aimerai créer une macro sur mon fichier afin que toutes lignes égales à zéro soient supprimées.

Pouvez-vous m'aider s'il vous plait?

Merci d'avance

Cordialement,

THE

Bonjour,

par exemple:

Sub suppressionzero()

Dim i As Integer

Dim Dercell As Integer

Dercell = Range("A5").End(xlDown).Row - 1

For i = Dercell To 5 Step -1

If Cells(i, 2) Like "0" Then Rows(i).Delete

Next i

End Sub

Cordialement

C'est super, ça fonctionne.

Merci beaucoup pour votre aide et votre réactivité.

Cdlt

THE