Ajout Bouton avec code VBA dans Excel 2003

Fermé
BEBER1212 - 11 mai 2010 à 15:22
Bonjour à tous,
J'ai un bouton dans un onglet d'excel qui m'ouvre un onglet existant et me crée un bouton dessus.
Je voudrais savoir comment faire pour ajouter du code sur ce deuxième bouton qui me permettra d'ouvrir un autre onglet existant.
J'ai donc ce code qui après click sur le premier bouton, fait une recherche et, si elle est fructueuse, m'ouvre un onglet existant et crée un bouton dessus.

Private Sub Chercher_Click()
On Error Resume Next

Sheets(Range("B19").Value).Visible = 1
If Err <> 0 Then
MsgBox "Pas d'invité avec ce nom dans la liste. Faites une autre recherche. Attention à l'orthographe et aux accents.", , "Message Erreur"
End If
Sheets(Range("B19").Value).Activate
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=183.75, Top:=119.25, Width:=169.5, _
Height:=79.5).Select
ActiveSheet.Shapes("CommandButton1").Select

End Sub

Je voudrais donc ajouter du code sur ce bouton, style :
Sheets("Modification").Activate

mais je ne sais pas comment l'appliquer à ce bouton.

Je demande donc votre aide. Merci.