re,
Ca y est j'ai testé et ça fonctionne nickel, je vous en remercie. Par contre, j'aimerai bien comprendre ce qu'il faut faire pour que ça fonctionne, car copier coller dans l'immédiat c'est très bien mais comprendre c'est mieux
Si les boutons sont placés sur la feuille 1
ActiveSheet.Columns("K:N").EntireColumn.Delete
On supprime les données en colonnes K à N
Sheets("Bouton 1").Range("A1:D34").Copy Destination:=Sheets("feuil1").Range("K1")
On ciopie les données de la feuille Bouton 1 vers la feuille 1 - cellule K1
Tu dois pour chaque bouton changer Sheets("Bouton 1") en Bouton 2, etc...
En plaçant un bouton sur chaque feuille, tu pourrais aussi simlplifier et ne plus avoir qu''une seule macro qui fera tout le travail.
Amicalement
Dan