Dim sTexte As String Dim mElements() As String Dim r As Long sTexte = "Coucou;Codes;Sources" mElements = Split(sTexte, ";") For r = 0 To UBound(mElements) Range("A1").Offset(0, r + 1).Value = mElements(r) Next r
mElements = Split(ActiveSheet.Range("B" & i).Value, ";") count = UBound(mElements) count = count + 1 m = 0 For l = 1 To count Worksheets("test").Range("B" & k) = mElements(m) m = m + 1 k = k + 1 Next l