Bonsoir
Sub Macro1()
Dim rng As Range, i As Integer
'Définit la plage à évaluer.
Set rng = Range('B4:B16')
'Effectue une boucle arrière sur les lignes
'de la plage à évaluer.
For i = rng.Rows.Count To 1 Step -1
'Si la cellule i de la plage contient un ' 0 ', supprime la ligne entière.
If rng.Cells(i).Value = 0 Then rng.Cells(i).EntireRow.Delete
Next
End Sub
A+
Temjeh
Message édité par: temjeh, à: 20/05/2006 01:48