Bonsoir mon Bebe1310
Voila une macro qui doit réaliser tes souhaits.
Sub SuppLigne()
'Mise en place au départ
Range("F7").Select
Do While ActiveCell <> ""
'Effacement ligne
If ActiveCell = 0 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Salut
Bernard