Dim x As Byte 'déclare la variable x
'évite le bug si le nom existe déjà
For x = 1 To Sheets.Count 'boucle sur tous les onglets du classeur
'si l'onglet existe déjà, sort de la peocédure
If Sheets(x).Name = UserForm2.TextBox6.Value Then Exit Sub
Next x 'prochain onglet du classeur
If UserForm2.TextBox6.Value <> '' Then 'condition : si le textbox6 n'est pas vide
Sheets.Add 'ajoute un onglet
ActiveSheet.Name = UserForm2.TextBox6.Value 'le nomme
ActiveSheet.Move After:=Sheets(Sheets.Count) 'le place en fin de classeur
End If 'fin de la condition