ci joint le code complet (faites copier coller dans un module)
Sub test()
Dim cmd As Integer
cmd = 1
While Cells(1, cmd).Value <> ""
Cells(1, cmd).Select
Selection.Cut
Cells(cmd, 1).Select
ActiveSheet.Paste
cmd = cmd + 1
Wend
'------------------------------------------
'pour effacer les blanc -> ctrl F -> remplacer
'-------------------------------------------
Columns("A:A").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("a1").Select
End Sub
cordialement
petidani