Optimiser les lignes entre les données

Bonjour à tous,

je souhaite optimiser le classement de données qui apparaissent un peu au hasard (c'est normal) mon but est de ne plus avoir d'espace de ligne entre mes données

je vous joint une photo pour expliquer clairement ce que je souhaiterai avoir , à gauche ce que j'obtiens, et à droite ce que je voudrais, j'ai essayé plusieurs code mais je n'y arrive pas.

est ce que quelqu'un peut m'éclairer ?

Merci d'avance

Bonjour à tous!

Une petite macro comme ceci

Sub Macro1()
    Range("A1:A21").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    Range("A1").Select
End Sub

Bonne journée!

super merci !!