VBA souci de recopie ligne entre feuille

Bonjour,

Je souhaite grâce à différents boutons copier des lignes de la feuille REPERTOIRE

Les boutons sont les sélecteurs des lignes à recopier

La copie vers la feuille BLOC se fera après la dernière ligne de la colonne B

J'ai un message d'erreur sur mon code VBA

Merci pour votre aide

Bonjour

Dans le code Sub selection_cl_2(Type_moule As Integer), vous devez enlever les guillemets à la variabe Type Moule

Autre chose, évitez les activate, Select et selection, cela ne sert à rien si ce n'est à ralentir l'exécution
Exemples dans votre code :

Sheets("REPERTOIRE").Activate
Set Plage = Range("A3:A40")

Mettez simplement ceci -->

Set Plage = Sheets("REPERTOIRE").Range("A3:A40")

et ici

Plage_selectionne.Select
Selection.Offset(0, 1).Resize(Selection.Rows.Count, Selection.Columns.Count + 16).Select
Selection.Copy

mettez ceci plutôt

With Plage_selectionne
    .Offset(0, 1).Resize(.Rows.Count, .Columns.Count + 16).Copy
End With

Cordialement

Bonjour Dan,

Un grand merci pour ton aide

Bonne journée