Bonjour je suis débutant et j'ai besoin d'aide!!
j'ai fait un code qui permet d'ajouter un nb de ligne (à partir d'une feuille qui contient un modèle) en appuyant sur le bouton ça marche mais le bouton ne se décale pas une fois les lignes ajouté.
une solution SVP
voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Ajout()                                                  
On Error Resume Next
Application.ScreenUpdating = False                                      
Call derniere_ligne(3, 1)                             
Dim nombre As Integer
Dim i As Integer
i = 0
nombre = InputBox("Veuillez indiquer le nombre de matériel que vous voulez ajouter")
While i < nombre
 
Application.CutCopyMode = False
 
    Sheets("Modèle").Select
    Rows("3:6").Select
    Selection.Copy
    Sheets("AB").Select
    Call derniere_ligne(3, 1)
    Range(ActiveCell.Row).Select
    ActiveSheet.Paste
 
i = i + 1
Wend
Application.ScreenUpdating = True
End Sub