Private Sub CommandButton1_Click()
Dim i&, J&, K&, L&, x&
Dim TData As Variant, TReport As Variant
With Sheets("Donnees")
TData = .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(3).Row, 4))
End With
For i = LBound(TData, 1) To UBound(TData, 1)
TData(i, 4) = Split(TData(i, 4), ";")
x = x + 1 + UBound(TData(i, 4))
Next i
ReDim TReport(1 To x, 1 To 4)
For i = LBound(TData, 1) To UBound(TData, 1)
For L = LBound(TData(i, 4)) To UBound(TData(i, 4))
J = J + 1
For K = LBound(TData, 2) To UBound(TData, 2) - 1
TReport(J, K) = TData(i, K)
Next K
TReport(J, 4) = TData(i, 4)(L)
Next L
Next i
With Sheets("Restitution")
.Cells(2, 1).Resize(UBound(TReport, 1), UBound(TReport, 2)) = TReport
.Columns.AutoFit
.Activate
End With
End Sub