pas ouvert ton fichier, mais lorsque tu supprimes des lignes il faut commencer par la fin et remonter, essaye peut être en modifiant comme suit :
Code:
Option Explicit
Sub Macro()
Dim i As Long
For i = Range("A6000").End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = "" Then Rows(i).Delete
Next i
End Sub
Option Explicit
Sub Macro()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = "" Then Rows(i).Delete
Next i
End Sub
Sub Macro()
Application.ScreenUpdating = False
For i = Columns(1).Rows(ActiveSheet.Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 3).Value = "" Then Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub