Bonjour,
Mon problème se situe au niveau de la ligne en gras du code: Erreur d'exécution '1004' La méthode Select de la classe Range a échouéCette partie de code est mise dans un bouton d'un userform

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim i As Single
Dim vNewAdd As String
    
vFinCode = "$A$46"
vNewAdd = Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Range(vFinCode).Offset(1, 0).Address
Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Range(vNewAdd).EntireRow.Select
Selection.Insert Shift:=xlDown
Merci à vous