Private Sub Image2_Click()
'StopTimer
NbPlotsTotal = 18
Range("temps50m").Cells(compteur) = Range("B8").Value - Range("B20").Value
Range("temps50m").Cells(compteur).Offset(0, -2) = compteur
'Range("temps50m").Cells(compteur + 1) = Range("B8").Value - Range("I6").Cells(compteur).FormulaR1C1
'Range("temps50m").Cells(compteur + 2).FormulaR1C1 = "=row()-row(depart)"
'Range("temps50m").Cells(compteur + 3).Activate
compteur = compteur + 1
If compteur > NbPlotsTotal Then
StopTimer
MsgBox ("Course terminée")
Else
StartTimer
End If
End Sub