Effacer automatiquement plusieurs lignes

Bonsoir à tous,

J'aimerai savoir comment configurer une macro afin que celle-ci puisse effacer automatiquement des lignes où figure un 0.

Sur mon fichier allégé joint, j'ai un tableau intitulé Rayon visserie, je souhaiterai qu'avec une macro les lignes 21,22,23,24,25,26,31 et 32 soient effacés car elles contiennent un 0 dans les cellules A21, A23, A25 et A31.

J'ai beaucoup cherché mais je n'arrive vraiment pas à trouver, je remercie d'avance ceux qui pourront m'aider à résoudre mon problème.

J'ai trouvé une formule qui fonctionne mais j'aimerai juste la modifié pour que la recherche des 0 démarre a partir de la ligne 18. Quelqu'un peut m'aider?

Dim n As Integer

Application.ScreenUpdating = False

For n = Range("B65536").End(xlUp).Row To 1 Step -1

If (Range("A" & n) = "0") Then

Rows(n).Delete

End If

Next n

Bonsoir

Par rapport à ton code essai comme ça, mais je pense que tu vas avoir des soucis avec tes cellules fusionnées en lignes 19 à 32

Dim n As Integer

Application.ScreenUpdating = False

For n = Range("A65536").End(xlUp).Row To 18 Step -1

If (Range("A" & n) = "0") Then

Rows(n).Delete

End If

Next n

Slts

boss_68 a écrit :

Bonsoir

Par rapport à ton code essai comme ça, mais je pense que tu vas avoir des soucis avec tes cellules fusionnées en lignes 19 à 32

Dim n As Integer

Application.ScreenUpdating = False

For n = Range("A65536").End(xlUp).Row To 18 Step -1

If (Range("A" & n) = "0") Then

Rows(n).Delete

End If

Next n

Slts

Merci boss_68!