Sub Sippreligneonglet()
Dim I As Integer
Application.ScreenUpdating = False
For I = Sheets("nomFeuille").Range("H65536").End(xlUp).Row To 1 Step -1
If Evaluate("A" & I & "&B" & I & "&C" & I & "&D" & I & "&E" & I & "&F" & I & "&G" & I & "&H" & I) = "" Then
Range("A" & I & ":H" & I).Delete Shift:=xlUp
End If
Next I
Application.ScreenUpdating = True
End Sub