Soit deux colonnes, la première avec des distances parcourues, la seconde avec le temps mis pour parcourir ce trajet, comment calculer par formule ou en VBA la vitesse horaire ?

Avec la distance (exprimée en Km) en A1 nommée ici traG, et le temps en B1 (exprimé en h:mm) nommée ici tmP =(A1/B1)*"1:" ou par macro...

sub zaza()
 Dim vitS As Double
 On Error Resume Next
  traG = Application.InputBox _
    ("La distance parcourue en Km", Type:=1)
  tmP = Application.InputBox _
    ("La durée du trajet ?" & Chr(10) & _
      "(Ex: 2:15:36 pour 2h 15' 36'')", Type:=1)
  vitS = traG / (tmP * 24)
  vitMoy = Application.Round((traG / (tmP * 24)), 2)
  MsgBox "Vitesse moyenne: " & vitMoy & " Km/h"
 end sub