C'est bon j'ai trouvé, voici le code que j'ai mis:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Tablo() As String
Dim C As Range
'                 A    B    
'"43.12.713" => "43" "12,713"
For Each C In Selection
 
    Tablo = Split(C, ".")
    If UBound(Tablo) = 2 Then
        C.Value = Tablo(0)
        C.Offset(0, 1).Value = Tablo(1) & "." & Tablo(2)
 
     Else
        MsgBox "Chaine " & C & " Incorrecte"
  End If
Next C
Et cela marche je voudrais remercier ouskel'n'or et bbil d'avoir eu la patience et la gentillesse de m'aider à résoudre mon problème