nom d'onglet = nom dans une cellule

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Worksheet
If Target.Address <> "$C$2" Then Exit Sub
On Error Resume Next
Set Sh = Sheets(Target.Value)
If Err Then
    Me.Name = Target.Value
Else
    MsgBox "Cette feuille existe déja!", 64, " Impossible de nommer la feuille"
End If
End Sub

Private Sub Worksheet_Activate()
Dim T As Variant, i&
If Me.ListBox1.ListCount = 0 Then
    T = Sheets("paramètres").Range("D4:D15")
    For i = LBound(T, 1) To UBound(T, 1)
        Me.ListBox1.AddItem T(i, 1)
    Next i
End If
End Sub

Private Sub ListBox1_Click()
Dim Sh As Worksheet, X As String
If Me.ListBox1.ListIndex = -1 Then Exit Sub
X = ListBox1.List(ListBox1.ListIndex)
Me.Range("$C$2").Value = X
Me.Range("$C$1").Value = ListBox1.ListIndex + 1
On Error Resume Next
Set Sh = Sheets(X)
If Err Then
    Me.Name = X
Else
    MsgBox "Cette feuille existe déjà!", 64, " Impossible de nommer la feuille"
End If
End Sub