Sub Ecrire_Pièces()
'...
With Cells(lig, 1)
.Value = Pièce 'A : Pièce
.Offset(, 1) = Ctg 'B : Catégorie
.Offset(, 2) = SI 'C : Stock initial
.Offset(, 4) = Seuil 'E : Seuil d'alerte
.Offset(, 5) = Dsc 'F : Descriptif
.Offset(, 6) = Réf 'G : Référence
.Offset(, 7) = UM 'H : Unité de mesure
.Offset(, 8) = Obs 'I : Observations
.Offset(, 11) = Mag 'L : Magasin
.Select
End With
'ici, ton code spécial de renommage du Code article sur les 2 feuilles "Entrées"
'et "Sorties" (« Maj Entrées » et « Maj Sorties »)
'ci-dessous, mon code VBA pour l'écriture « en dur » des Entrées, des Sorties,
'et du Stock actuel de la feuille "Inventaire" ; donc sans formules (ce qui
'simplifiera beaucoup pour faire ensuite les transferts).
4 QE = SQ(Pièce, Mag, 1): QS = SQ(Pièce, Mag, 2): SA = SI + QE - QS
With Cells(lig, 1)
.Offset(, 9) = QE 'J : Entrées
.Offset(, 10) = QS 'K : Sorties
.Offset(, 3) = SA 'D : Stock actuel
End With
'...
End Sub