If Not Feuille_Existe(Range("B2").Value) And Worksheets(1).Cells(2, 2).Value <> "" Then ' Teste si la feuille existe et qu'il y a bien une valeur dans la cellule
Worksheets(2).Copy After:=Worksheets(Sheets.Count) ' Copie la feuille 2 (Type)
Sheets(1).Select ' Retourne page 1
Sheets(Sheets.Count).Name = Range("B2").Value ' change le nom
Else