Sub lacopie()
Sheets("Course 10km").Visible = True
Sheets("Course 10km").Copy Before:=Sheets(Sheets.Count)
Sheets("Course 10km").Visible = False
On Error Resume Next
ActiveSheet.Name = Me.TextBox1
If Err <> 0 Then MsgBox "Impossible de nommer l'onglet"
Sheets("Course 10km").Visible = False
End Sub