Sub test()
For n = 2 To Range("R" & Rows.Count).End(xlUp).Row
'mise en tableau du contenu de la celule
x = Split(Range("R" & n), ",")
'le tableau se presente ainsi pour la ligne 3:
'A1
'A2
'A3
'A4
'A5
'A6
' si le nombre de lignes du tableau est = ou >2 (rappel le numérotage commence à 1 d'ou le >=1)
If UBound(x) >= 1 Then
'1er element du tableau en colonne R
Range("R" & n) = x(0)
' 2eme element du tableau en colonne S
Range("S" & n) = x(1)
End If
'si plus de 2 lignes dans le tableau
If UBound(x) > 1 Then
'insere des lignes
For m = 2 To UBound(x)
Rows(n + 1).Insert
Next m
For m = 2 To UBound(x)
' recopie de la ligne precedente
Range("A" & n & ":Q" & n).Copy Destination:=Range("A" & n + m - 1)
'ecriture en colonne T
Range("T" & n + m - 1) = x(m)
Next
End If
Next
End Sub