Sub CelaFonctionneTrèsBien()
Cells.Select
Selection.Copy
Sheets("Sheet1").Select
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
On Error Resume Next 'Si SpecialCells ne trouve aucune cellule vide il lève une erreur. On error resume next permet de l'ignore
Range("A2:A" & Range("A65226").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Sub CelaFonctionneAvecBoucle()
Cells.Select
Selection.Copy
Sheets("Sheet1").Select
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Dim i As Long
For i = Range("A65226").End(xlUp).Row To 2 Step -1
If Cells(i, 1) = "" Then Cells(i, 1).EntireRow.Delete
Next
End Sub