Bonjour à tous

Voici mon problème, j'aimerais regrouper mes cellules non vide sur chaque ligne.

aprés plusieurs recherches j'ai trouvé ce code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub test()
Dim Colonne As Range
On Error Resume Next
For Each Colonne In Range("A1:E10").Columns
 
    Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp)
Next
End Sub
Mais il fait l'inverse c'est à dire qu'il regroupe par colonne et non par ligne

Pouvez vous m'aider SVP.