Regarde ce bout de code, ici je traite les 200 premières lignes...
sub nitho()
Dim x
Dim i As Integer
i = 1
Application.ScreenUpdating = False
x = Application.Calculation
Application.Calculation = xlCalculationManual
Do While i < 200
If Cells(i, 1).Value = "" Then
Rows(i).Delete shift:=xlUp
Debug.Print i
Debug.Print Range(("A" & i)).Value
i = i - 1
End If
If i = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Then
i = 200
End If
i = i + 1
Loop
Application.ScreenUpdating = True
Application.Calculation = x
End Sub
nitho l'amateur