Sub transpose()
nbcol = 3 ' nombre de couples de données à lire ope/tps
nbproduit = 4 ' nombre de produits
celluledepart = 'C19' ' cellule de départ du tableau à remplir
cellulealire = 'A2' ' cellule de départ des données à parcourir
For prod = 0 To nbproduit
For i = 0 To nbcol - 1
Range(celluledepart).Offset(i + (prod * nbcol), 0).Value = Range(cellulealire).Offset(0 + prod, 0).Value
Range(celluledepart).Offset(i + (prod * nbcol), 1).Value = 10 + 10 * i
Range(celluledepart).Offset(i + (prod * nbcol), 2).Value = Range(cellulealire).Offset(0 + prod, 2 + (5 * i))
Range(celluledepart).Offset(i + (prod * nbcol), 3).Value = Range(cellulealire).Offset(0 + prod, 4 + (5 * i))
Next i
Next prod
End Sub