Private Sub CommandButton1_Click()
Dim Deplacement As String
Dim Vitessemoyenne As Single
Deplacement = ComboBox1.Value
Select Case Deplacement
Case "A pied"
Vitessemoyenne = 6
Case "Voiture"
Vitessemoyenne = 65
End Select
Range("A2") = Vitessemoyenne
Call Module1.Calculetemps
TextBox2 = Format(Range("D5"), "hh:mm:ss")
End Sub