par Sub enregistrement()
If Range("L2") = "" Then
MsgBox "Aucune donnée à sauvegarder." & vbCrLf & "Lancez une course, enregistrez la lorsqu'elle est terminée", vbApplicationModal, "Enregistrement"
Exit Sub
End If
nom = InputBox("NOM DE LA FEUILLE POUR ENREGISTREMENT DE LA COURSE ", "Enregistrement de la course")
If nom = "" Then Exit Sub
lap = Range("c14").Value
tps = Sheets.Count
Sheets.Add After:=Sheets(tps)
ActiveSheet.Name = nom
Sheets("chrono").Select
Columns("k
").Select
Selection.Copy
Sheets(nom).Select
Range("b1").Select
ActiveSheet.Paste
Rows("1:1").Select
Application.CutCopyMode = False
Range("b1") = "Pilote"
Range("c1") = "Temps Total"
Range("d1") = "Temps Intermédiaire"
Range("e1") = "Temps/pilote"
Range("f1") = "km/heure"
Range("g1").Select
Columns("a:f").EntireColumn.AutoFit
Columns("A:f").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With