[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, x$, oCel As Range, oPlg As Range
Set oPlg = Intersect(Target, Range("A1:B4,C9")) [COLOR="SeaGreen"]'Adapter la plage concernée par la procédure.[/COLOR]
If Not oPlg Is Nothing Then
For Each oCel In oPlg.Cells
With oCel
x = .Value
For i = 1 To 2 * Len(x) - 2 Step 2
x = Left$(x, i) & " " & Right$(x, Len(x) - i)
Next
Application.EnableEvents = False
.Value = x
Application.EnableEvents = True
End With
Next
Set oPlg = Nothing
End If
End Sub[/B][/COLOR]