Voici le code que j'ai commencer à faire :
For i = 1 To nblines
' split carac
Sheets(SheetMarian).Cells(i + 23, 7) = variable(1)
For j = 1 To lenghtvariable - 1
If variable(j) = "DIAM" Then
Sheets(SheetMarian).Cells(i + 23, 9) = variable(j + 1)
ElseIf variable(j) = "HEIGHT" Then
Sheets(SheetMarian).Cells(i + 23, 12) = variable(j + 1)
ElseIf variable(j) = "LENGHT" Then
Sheets(SheetMarian).Cells(i + 23, 13) = variable(j + 1)
ElseIf variable(j) = "SCH1" Then
Sheets(SheetMarian).Cells(i + 23, 15) = variable(j + 1)
ElseIf variable(j) = "SCH2" Then
Sheets(SheetMarian).Cells(i + 23, 16) = variable(j + 1)
Next j
Next i
Il me manque juste à savoir comment on fait pour séparer mes variables dans un tableau de variable