'Copie du nom de la course
Sheets("1ère").Range("A1") = Me.TextBox1
Sheets("Engagés").Range("A1") = Me.TextBox1
Sheets("Scratch").Range("A1") = "CLASSEMENT DU " & Me.TextBox1
Sheets("Clt points").Range("A1") = Me.TextBox1
Sheets("Classement_par_équipes").Range("A1") = Me.TextBox1
Sheets("Primes").Range("A1") = Me.TextBox1
'Copie de la date de l'épreuve
Sheets("Engagés").Range("A3") = CDate(Me.DTPDateDebut)
Sheets("Scratch").Range("B2") = CDate(Me.DTPDateDebut)
Sheets("1ère").Range("B3") = CDate(Me.DTPDateDebut)
'Copie du type de l'épreuve
Sheets("Scratch").Range("D2") = Me.TextBox2
'Copie des catégories de l'épreuve
Sheets("Scratch").Range("G2") = Me.TextBox3
Sheets("1ère").Range("G3") = Me.TextBox3
'Copie de toutes les infos sur la feuille d'émargement
Sheets("feuille_émargement").Range("A1") = Me.TextBox1 & Chr(32) & Chr(32) & Chr(32) _
& UCase(Format(CDate(Me.DTPDateDebut), "d mmmm yyyy")) & Chr(32) & Chr(32) & Chr(32) & "LISTE D'EMARGEMENT"