Changement le nom d'un Bouton

Bonjour Forum,

Après avoir exécuté les noms des onglets automatiquement, je souhaite aussi que les boutons changent automatiquement leurs noms pour qu'ils puissent prendre la destination lorsque je change la langue,

Le fichier ci-joint vous explique le problème.

Bonne réception,

Cordialement.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim shName As String
Dim shPren  As String
Application.ScreenUpdating = False
On Error Resume Next

If (Target.Text = "Anglais") Then
   shName = Sheets("Table").Range("A1").Offset(1, 0)
   shPren = Sheets("Table").Range("A1").Offset(3, 0)
    Sheets("Langue").Shapes.Range(Array("Button 2")).Select
    Selection.Characters.Text = "Name"
    Sheets("Langue").Shapes.Range(Array("Button 3")).Select
    Selection.Characters.Text = "First Name"

Else
   shName = Sheets("Table").Range("A1").Offset(0, 0)
   shPren = Sheets("Table").Range("A1").Offset(2, 0)
    Sheets("Langue").Shapes.Range(Array("Button 2")).Select
    Selection.Characters.Text = "Nom"
    Sheets("Langue").Shapes.Range(Array("Button 3")).Select
    Selection.Characters.Text = "Prénom"
End If

Sheets("Nom").Name = shName
Sheets("Name").Name = shName
Sheets("Prénom").Name = shPren
Sheets("First name").Name = shPren

Range("a1").Select
End Sub

Bonjour,

En fait, je suis pas un développeur et j'arrive pas à résoudre mon problème.

Si ça vous dérange pas de saisir le code directement sur le fichier ci-joint.

Sincèrement.