Sélectionner une cellule en fonction du nom du button

Private Sub CommandButton1_Click() 'au clic dans le CommandButton1
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim R As Range 'déclare la variable R (Recherche)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set OS = Sheets("Feuil1") 'définit l'onglet source OS (à adapter à ton cas)
Set OD = Sheets("Feuil2") 'définit l'onglet destination OD (à adapter à ton cas)
'définit la recherche R (recherche le texte exact du CommandButton1 dans la colonne 1 (=A) de l'onglet source OS)
Set R = OS.Columns(1).Find(Me.CommandButton1.Caption, , xlValues, xlWhole)
If Not R Is Nothing Then 'condition : si au moins une occurrence est trouvée
    Set DEST = OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST (à adapter à ton cas)
    R.Copy DEST 'copie la première occurrence trouvée dans DEST
End If 'fin de la condition
End Sub