Sub CopieSUPPRVidesII()
Dim cell As Range, Rng As Range, Rng2 As Range
Dim pl As Long, pc As Long
pl = ActiveSheet.UsedRange.Row
pc = ActiveSheet.UsedRange.Column
Set Rng = Cells(pl, pc).CurrentRegion
Set Rng2 = Sheets("Feuil1").[A1]
Sheets("Feuil1").Cells.ClearContents
Application.ScreenUpdating = False
With Rng
.Copy
Sheets("Feuil1").Range("A1").PasteSpecial _
Paste:=xlValues 'copie uniquement les valeurs
'Sheets("Feuil1").Range("A1").PasteSpecial _
'xlAll, xlNone, False, False 'copie tout (valeurs et format)
Application.CutCopyMode = False
End With
Sheets("Feuil1").Activate
Rng2.CurrentRegion.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Sheets("Feuil2").Activate
End Sub