Bonsoir nano7518
Dans la feuille Base accessible par mot de passe **** on rajoute autant d'articles que l'on veut.
Pour que ces articles soient également initialisés dans les feuilles Stock et Récap, il faut cliquer autant de fois que nécessaire sur le pavé rose (feuille Base) pour rajouter à chaque clic 10 lignes dans ces feuilles.
si vous voulez rajouter + de 10 lignes à la fois il faut modifier la macro en remplaçant 10 par une autre valeur.
Sub CopyFormules() 'Copie les formules sur les 10 lignes en dessous dans stock et Récap
Application.ScreenUpdating = False
If MsgBox("Voulez-vous ajouter 10 lignes supplémentaires avec les formules dans Stock et Récap?", vbYesNo) = vbYes Then
With Sheets("Stock")
.Select
.Unprotect
Range("A65000").End(xlUp).Activate
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 10).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
With Sheets("Récap")
.Select
.Unprotect
Range("A65000").End(xlUp).Activate
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 10).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End If
Sheets("Accueil").Select
Range("A2").Select
Application.ScreenUpdating = True
End Sub
Cdt
Henri