Re,
Dans le bout de code ci-dessous, tu recherches la dernière ligne vide grâce à ligne = Sheets("Vendor").[A65000].End(xlUp).Row + 1 puis tu utilises cette variable "ligne" dans les 4 dernières lignes, les colonnes (2, 3, 1 et 4) étant à chaque fois différentes.
'--- Positionnement dans la base
ligne = Sheets("Vendor").[A65000].End(xlUp).Row + 1
'--- Transfert Formulaire dans Vendor
Sheets("Vendor").Cells(ligne, 2) = Me!Num_Vendor
Sheets("Vendor").Cells(ligne, 3) = Me.Company_Code
Sheets("Vendor").Cells(ligne, 1) = Me.Account_Grp
Sheets("Vendor").Cells(ligne, 4) = Me.Purchase_Org
Afin de déterminer un autre emplacement, tu peux par exemple indiquer la ligne et la colonne désirée.
Par exemple, afin de placer Me!Num_Vendor (soit le premier de tes 4 transferts ci-dessus) dans la cellule D3 de la feuille Vendor, tu pourrais écrire le code ci-dessous :
Sheets("Vendor").Cells(3, 4) = Me!Num_Vendor
Ou alors
Sheets("Vendor").Range(«D3») = Me!Num_Vendor
Le passage
'--- Positionnement dans la base
ligne = Sheets("Vendor").[A65000].End(xlUp).Row + 1
serait évidement à supprimer.
Amicalement.