Sub Vitesse()
'ChrisV, mpfe
Dim Trajet As Double, Temps As Double, Vitesse As Double
Distance = Application.InputBox _
('Précisez la distance parcourue en Km', Type:=1)
Temps = Application.InputBox _
('Combien de temps avez vous mis ? (Ex: 02:15)', Type:=1)
Vitesse = Distance / (Temps * 24)
Valeur_arrondie = Application.Round _
((Distance / (Temps * 24)), 2)
MsgBox 'Votre vitesse moyenne était de: ' _
& Valeur_arrondie & ' Km/h'
End Sub