Sub sup_ligne()
Dim i As Byte
For i = 1 To Range('G65536').End(xlUp).Row
If Cells(i, 7).Value = '*' Then
Rows(i).Delete
i = i - 1
End If
Next i
End Sub
Sub Macro1()
For I = Range('G65530').End(XlUp).Row to 1 Step -1
If Range('G' & I).Value = '*' Then Rows(I).Delete Shift:=xlUp
Next I
End Sub