InputBox pour renommer le nom d'une feuille

b = InputBox("Nom de l'unité de travail ?", "Question ?", "Nom de l'unité")  
        'impose de répondre'  
        If Len(b) < 1 Then  
        MsgBox ("Vous devez obligatoirement entrer un nom d'unité de travail")  
        End If  
          
        While Len(b) < 1  
        MsgBox ("Vous devez obligatoirement entrer un nom d'unité de travail")  
        b = InputBox("Nom de l'unité de travail ?", "Question ?")  
        Wend

Sub Creer_unite_travail()  
    Dim b As String  
    Dim c As String  
    Dim d As String  

 ActiveSheet.Unprotect  
'affiche la trame pour selection/copier/coller puis disparait'  
    With Sheets("Trame")  
        .Visible = True  
        .Copy Before:=Sheets(1)  
        .Visible = False  
    End With  
      
    While Len(b) < 1  
        b = InputBox("Nom de l'unité de travail ?", "Question ?")  
        If Len(b) < 1 Then  
            MsgBox ("Vous devez obligatoirement entrer un nom d'unité de travail")  
        End If  
        If FeuilleExiste(ThisWorkbook, b) Then  
            MsgBox "La feuille " & b & " existe déjà. Changez de nom."  
            b = ""  
        End If  
    Wend  
          
c = InputBox("Effectif de l'unité de travail ?", "Question ?")  
d = InputBox("Nom du rédacteur ?", "Question ?")  
      
Range("B1") = b  
Range("B2") = c  
Range("N1") = d  

ActiveSheet.Name = b  
'couleur de l'onglet aléatoire'  
ActiveSheet.Tab.Color = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))  

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _  
        , AllowInsertingRows:=True, AllowDeletingRows:=True  
End Sub  
'Fonction de Bbil, sources :  
'http://www.developpez.net/forums/d269391/logiciels/microsoft-office/excel/macros-vba-excel/vba-e-feuille-existe/  
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean  
 On Error Resume Next  
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)  
End Function 

Sub Principale() 
Call AppliqueNouvelleCouleurOnglet(ActiveSheet) 
End Sub 

Sub AppliqueNouvelleCouleurOnglet(Feuille As Worksheet) 
Dim Wsh As Worksheet, Couleurs(), i As Integer, Flag As Boolean, Couleur As Long 

For Each Wsh In ThisWorkbook.Worksheets 
    ReDim Preserve Couleurs(i) 
    Couleurs(i) = Wsh.Tab.Color 
    i = i + 1 
Next Wsh 
Flag = False 
Do While Flag = False 
    Randomize 
    Couleur = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd)) 
    For i = LBound(Couleurs) To UBound(Couleurs) 
        If Couleur = Couleurs(i) Then 
            Flag = False 
            Exit For 
        End If 
        Flag = True 
    Next 
Loop 
Feuille.Tab.Color = Couleur 
End Sub

Sub AppliqueNouvelleCouleurOngletAleatoirement()
Dim Wsh As Worksheet
Dim Couleurs(55) As Integer, i As Integer, Coul As Integer
Dim Dico As Object

'teste le nombre d'onglets. Si > 56 on ne peux rien faire avec ce code.
If Sheets.Count > 56 Then MsgBox "Votre classeur contient trop de feuilles.": Exit Sub
'On remplit la variable tableau avec toutes les valeurs que peux prendre
'la propriété ColorIndex soit de 1 à 56
For i = 0 To 55
    Couleurs(i) = i + 1
Next
'L'objet Dictionary permet de générer des listes sans doublons
Set Dico = CreateObject("Scripting.Dictionary")
'On implémente notre dictionary avec les couleurs des onglets déjà existants
For Each Wsh In ThisWorkbook.Worksheets
    Dico(Wsh.Tab.ColorIndex) = ""
Next Wsh
Randomize
Do
    'On détermine une couleur aléatoirement
    Coul = CInt(Rnd * 55)
    'si cette couleur n'existe pas dans notre dictionary
    'En même temps on vérifie qu'il s'agit d'une couleur valide pour
    'la propriété ColorIndex (si > 0 et < 57)
    If Not Dico.exists(Coul) And Coul > 0 And Coul < 57 Then
        'si tout bon alors on l'applique à notre onglet
        ActiveSheet.Tab.ColorIndex = Coul
        'on sort de la boucle Do-Loop
        Exit Do
    End If
Loop
End Sub