Sheets(5).Copy After:=Worksheets(Sheets.Count)
Sheets(2).Cells(Nb_Joueur, 1).Value = Saisie_Joueur.TextBox1.Text
Sheets(2).Cells(Nb_Joueur, 2).Value = Saisie_Joueur.TextBox2.Text
Sheets(2).Cells(Nb_Joueur, 3).Value = Saisie_Joueur.ComboBox2.Text
Worksheets(Sheets.Count).Cells(2, 2) = Worksheets(Sheets.Count).Name
Worksheets(Sheets.Count).Name = Sheets(2).Cells(Nb_Joueur, 2)
Sheets(1).Select