Bonjour polo67,
Une solution :
Remplace la macro Copie_Bouton1 par celle-ci :
Sub Copie_Bouton1()
'
' Copie_Bouton1 Macro
' Macro enregistrée le 17/03/2010 par Papy-polo
'
'
With Selection
With .Interior 'sélection se fait par le choix de la couleur dans la palette
.ColorIndex = 36 'jaune clair
.Pattern = xlSolid
End With
.Value = "Bouton 1"
.Offset(0, 1).Select 'ici la propriété Offset décale la sélection
'de 0 ligne vers le bas et 1 colonne vers la droite
End With
End Sub
et dans le code du Bouton1 tu mets ceci :
Private Sub CommandButton1_Click()
Copie_Bouton1
End Sub
Je te laisse faire le reste.