Manip de Excel

Public Sub sepChiffre()
Dim ws As Worksheet     'déclaration d'un objet feuille
Dim lig As Long         'déclaration d'une variable pour parcourir les lignes
Dim str As Variant      'déclaration d'une variable pour recevoir le contenu de la cellule

    lig = 1             'On met ici le numéro de la première ligne à tester
    Set ws = Worksheets(1)  'Objet contenant la 1ère feuille (Feuil1)
    '
    With ws
        'Faire tant que la cellule est non vide
        While .Range("A" & lig).Value <> ""
           'récupération de la valeur de la cellule
           str = CStr(.Range("A" & lig).Value)
           'utilisation de la fonction Mid() pour découper la chaîne et affection du résultat
           .Range("B" & lig).Value = Mid(str, 1, 13)
           .Range("C" & lig).Value = Mid(str, 14, 2)
           'On passe à la ligne suivante
           lig = lig + 1
           '
        Wend
        '
    End With
    '
End Sub