Bonsoir Christophe
Le 14/5 ZON en réponse à Mouad écrivait :
"Salut, tu peux d'inspirer de ce qu'a fait Pias dans le fil juste avant toi
Sub Masqueliste()
Dim Cell As Range
For Each Cell In Range("A8:A500") ' à adapter
If Cell = 0 Then Rows(Cell.Row).Hidden = True
’ pour les supprimer =>Rows(Cell.Row).entirerow.delete
Next Cell
End Sub
Je crois que toi aussi tu peux t'inspirer de ce travail bien fait !
@+
GD