Private Sub Créer_Click()
Dim i As Byte
Application.ScreenUpdating = False
'permet de figer l'ecran
For i = 1 To Sheets.Count
'on parcours toutes les feuilles (de 1 au nombre de feuilles presentent dans le classeur)
If Cells(1, 2).Value = Sheets(i).Name Then
'on fait un test pour savoir si la feuille existe deja ou non
'cad si la cellule est equivalente au nom de la feuille i
MsgBox 'La feuille existe deja'
'si c'est le cas, on affiche le message ci-dessu
Exit Sub
'puis on sort de la macro
End If
Next i
Sheets.Add.Name = Cells(1, 2).Value
'on ajoute une feuille que l'on renomme en meme tps de la valeur de la cellule ligne 1 colonne 2
ActiveSheet.Move After:=Sheets(Sheets.Count)
'on place la feuille en derniere position
Sheets('feuil1').Select
Application.ScreenUpdating = True
End Sub