Sub AvecTablo_2()
'par mapomme
Dim MesNum, maListe, NumTxt(), N&, i&, j&, k&
With Sheets("Feuil3")
maListe = Range(Range("e2"), Range("f" & Range("e" & Rows.Count).End(xlUp).Row)).Value
'N = 0: j = UBound(maListe)
'For i = -j To -1
'If maListe(-i, 1) > N Then N = maListe(-i, 1)
'Next i
'ReDim NumTxt(0 To N)
NumTxt = Application.Index(maListe, , 2)
'For i = 1 To j: NumTxt(maListe(i, 1)) = maListe(i, 2): Next i
maListe = Range(Range("a2"), Range("a" & Range("a" & Rows.Count).End(xlUp).Row)).Value
N = UBound(maListe)
For i = 1 To N
MesNum = Split(maListe(i, 1), ",")
k = UBound(MesNum)
maListe(i, 1) = ""
For j = 0 To k
maListe(i, 1) = maListe(i, 1) & "," & NumTxt(MesNum(j), 1) ' ici il faut préciser la dimention ,1
Next j
maListe(i, 1) = Mid(maListe(i, 1), 2)
Next i
Range("b2").Resize(N, 1) = maListe
End With
End Sub