bonsoir,
voici un proposition de macro, résultat en colonne B
Sub Onet()
Set ws = Worksheets("Feuil1")
derlig = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
For i = 2 To derlig
t = ws.Cells(i, 1)
t1 = Left(t, 7)
t2 = Right(t, Len(t) - 7)
t1 = Replace(t1, " - ", "-")
t1 = Replace(t1, " -", "-")
t1 = Replace(t1, "-", " ")
a = InStr(t1, " ")
If a <> 0 Then
t = Right(t1, Len(t1) - a) & t2
End If
ws.Cells(i, "B") = Trim(t)
Next i
Set ws = Nothing
End Sub