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