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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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.