Supprimer les cellules vides

Je reviens vers vous en ces heures sombres mes amis ! ( okay je m'égare )

Bonjour tout le monde!

Un petit problème se pose à moi, je désire supprimer les cellules vides d'une colonne de manière automatique.

Je vous joins un fichier exemple. J'espère qu'une macro n'est pas nécessaire mais sinon ce n'est pas grave.

Merci d'avance!

Bonjour,

une petite macro

Sub SupprVides()
Dim Lg&
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    On Error Resume Next
    Range("a5:a" & Lg).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

Bonne journée

Claude

Merci Claude une fois de plus!

re,

Pas totalement j'essaie de résoudre le pb moi même sinon je viendrais vous embêter a nouveau

C'est bon merci tout le monde!