Re : Traitement d'une chaîne de caractère
Bonsoir,
Peux être comme cela aussi
Sub Click()
For i = 1 To Cells(Cells(65536, 1).End(xlUp).Row, 1).Row
For j = 0 To UBound(Split(Cells(i, 1), "/"))
Cells(i, j + 3) = Trim(Split(Cells(i, 1), "/")(j))
Next j
Next i
End Sub