Sub Macro1()
Dim TabData() As Variant
With ActiveSheet
fin = .Range("A" & .Rows.Count).End(xlUp).Row
TabData = .Range("A2:G" & fin).Value
For i = LBound(TabData, 1) + 3 To UBound(TabData, 1)
For j = LBound(TabData, 2) + 4 To UBound(TabData, 2) - 1
TabData(i, j) = TabData(1, j) & TabData(i, j - 4)
Next j
Next i
VarNum = Replace(Split(TabData(4, 3), "-")(0), "PRODUIT ", "")
ID_VAR = TabData(4, 2)
For i = LBound(TabData, 1) + 3 To UBound(TabData, 1)
NewVarNum = Replace(Split(TabData(i, 3), "-")(0), "PRODUIT ", "")
If NewVarNum <> VarNum Then
VarNum = NewVarNum
ID_VAR = TabData(i, 2)
End If
TabData(i...