Problème Macro sélection bug

Bonjour,

Je suis novice en Excel 2007.

J'ai créé une macro toute simple pour supprimer les lignes vides de mes colonnes. Mais quand je la lance, elle me fait un bug sur la 1ère colonne (A:A)

Je ne vois pas du tout où est le problème. Pour décrire la manipulation, je copie-colle quelques colonnes dans une nouvelle feuille afin de faire un test, je lance la macro et là, j'ai un bug.
Merci d'avance

Voici la macro :

Sub SuppLignesColonnes()
'
' SuppLignesColonnes Macro
'

Columns("A:A").Select
If Selection.SpecialCells(xlCellTypeBlanks).Select = True Then
Selection.Delete Shift:=xlUp
End If

Columns("B:B").Select
If Selection.SpecialCells(xlCellTypeBlanks).Select = True Then
Selection.Delete Shift:=xlUp
End If

Columns("C:C").Select
If Selection.SpecialCells(xlCellTypeBlanks).Select = True Then
Selection.Delete Shift:=xlUp
End If

Columns("D:D").Select
If Selection.SpecialCells(xlCellTypeBlanks).Select = True Then
Selection.Delete Shift:=xlUp
End If

End If

End Sub

PS : Lors de l'enregistrement de la macro, je sélectionne la colonne A, je fais F5, sélectionner les cellules vides et là, Excel me dit qu'il n'a pas trouvé de cellules. Ceci est étrange parce que pour les autres colonnes, cette manipulation sélectionne les cellules vides en dessous.