Autres Sélectionner une feuille selon la valeur d'une liste déroulante

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(CStr([F2])).Activate
End Sub

Sub Liste_Formulaire()
On Error Resume Next
Sheets(CStr([F4])).Activate
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(CStr([F2])).Activate
If Err = 0 Then Renommer
End Sub

Sub Liste_Formulaire()
On Error Resume Next
Sheets(CStr([F4])).Activate
If Err = 0 Then Renommer
End Sub

Sub Renommer()
Dim nom$, s As Object
1 nom = Left(InputBox("Entrez le nouveau nom :", "Renommer la feuille ?", nom), 31)
If nom = "" Then Exit Sub
On Error Resume Next
ActiveSheet.Name = nom 'renomme
If Err = 0 Then MsgBox "La feuille a été renommée": Exit Sub
Set s = Nothing
Set s = Sheets(nom)
MsgBox IIf(s Is Nothing, "Caractère interdit !", "Nom déjà attribué !"), 48
GoTo 1
End Sub

Sub Renommer()
Dim nom$, s As Object
Do
    nom = Left(InputBox("Entrez le nouveau nom :", "Renommer la feuille ?", nom), 31)
    If nom = "" Then Exit Sub
    On Error Resume Next
    ActiveSheet.Name = nom 'renomme
    If Err = 0 Then MsgBox "La feuille a été renommée": Exit Sub
    Set s = Nothing
    Set s = Sheets(nom)
    MsgBox IIf(s Is Nothing, "Caractère interdit !", "Nom déjà attribué !"), 48
Loop
End Sub