TRie

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim Tableau() As String
    Dim i As Integer
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuil1") 'adapter le nom de la feuille
    NoCol = 1 'lecture de la colonne 1 colonne A
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
       'découpe la chaine en fonction des virgules ","
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(Var, ",")
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        Debug.Print Tableau(i)
    Next i
    If i = 6 Then
  FL1.Cells(NoLig, NoCol + 1) = Tableau(2)
       Else
        FL1.Cells(NoLig, NoCol + 1) = Tableau(1)
    End If
   Next
    Set FL1 = Nothing
End Sub

Function ville(cellule As String)
    'Inversion de la chaine
    esserda = StrReverse(cellule)
    t = Split(esserda, ",")
    ville = StrReverse(t(3))
End Function