CODE que j'ai modifié:
Sub EntréeDonnées()
Dim I&, fin&, chemin$
Feuil2.Copy
chemin = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:= _
chemin & "Inscriptions ETH" & " " & _
Format(Date, "yyyy-mm-dd") & " " & Format(Time, "h\hmm") & " " & nb & " " & "JOUEURS" & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False, local:=True
Application.DisplayAlerts = 0
ActiveWorkbook.Close
End Sub