Sub test() Dim Tableau
Dim i As Integer
Dim j As Integer
Dim L As Long
With Sheets("Feuil1")
L = .Range("A" & Rows.Count).End(xlUp).Row
Z = 2
For j = 2 To L
Tableau = Split(.Cells(j, 1), " X ")
For i = 0 To UBound(Tableau)
.Cells(j, i + 2) = Chr(j + 63) & (i + 1) & "-" & Tableau(i)
Next i
Next j
End With
End Sub