Sub Test()
Dim I As Integer
Application.ScreenUpdating = False
For I = 406 To 6 Step -1
If Evaluate("H" & I & "&I" & I & "&J" & I & "&K" & I) = "" Then
Range("H" & I & ":K" & I).Delete Shift:=xlUp
End If
Next I
Application.ScreenUpdating = True
End Sub
Sub Test()
Dim I As Integer
Application.ScreenUpdating = False
For I = 406 To 6 Step -1
If Evaluate("H" & I & "&I" & I & "&J" & I & "&K" & I) = "" Then
Rows(I).Delete
End If
Next I
Application.ScreenUpdating = True
End Sub
Sheets("nomFeuille").Range("A65536").End(xlUp).Row
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