Créer une macro qui copie puis supprimer les lignes vides

Bonjour,

Je cherche a créer une macro pour copier les cellules A1:B20 de la feuille 1 sur la feuille 2 puis supprimer les lignes ou A:A est VIDE.

Pouvez vous m'apporter votre aide.

Cordialement.

Bonjour,

Avec le code ci-joint ?

Sub TEST()
Feuil1.Range("A1:B20").Copy
Feuil2.Range("A1").PasteSpecial Paste:=xlPasteValues
Feuil2.Range("A1:A20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Au expert VBA, pourquoi cette ligne ne fonctionne pas et me dit Impossible de lire la propriété PasteSpecial de la classe Range ?

Feuil1.Range("A1:B21").Copy Destination:=Feuil2.Range("A1").PasteSpecial(Paste:=xlPasteValues)

Merci !

Bonne soirée.

Merci,