Bonjour olivier41,
Si vous êtes sur que vos cellules ne contiendront qu'un espace vous pouvez utiliser Rechercher et Remplacer, j'ai enregistré la macro correspondante à l'action, Excel l'écrit comme cela :
Sub Macro1()
'
' Macro1 Macro
'
Cells.Select
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
->Sélection de TOUTES les cellules, Excel cherche les cellules ayant UN espace : " " et les remplaces par une cellule vide : ""
ça laisse la place à l'autre cellule pour afficher son contenu.
Je vais faire un screen rapide pour montrer la procédure (onglet Accueil sur Excel 2010).