Bonjour à tous pour faire suite à mon message précédent, voici le code que j'ai mais je voudrais qu'il puisse aller à la ligne quand je change de nom de fournisseur
je sais qu'il y a une notion de +1 à rajouter mais j'arrive pas à trouver comment le rajouter
Voici le code Merci d'avance
Sub Macro2()
'
' Macro2 Macro
'
'Copier coller fournisseur
Range("G7:I7").Select
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' copier coller Montant HT
Sheets("bon de commande ").Select
ActiveWindow.SmallScroll Down:=18
Range("G29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' copier coller Conditions paiement
Sheets("bon de commande ").Select
Range("D29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Copier coller date de livraison
Sheets("bon de commande ").Select
ActiveWindow.SmallScroll Down:=-18
Range("D32").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=18
Range("D32").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tableau des commandes ").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub