Boujour à vous tous
Je suis comme Paritec, j'ai du mal à comprendre ce que tu veut mais je remarque le problème avec < et >.
Dim heure1a As Date
Dim heure1b As Date
remplace heure1a = Format(Range("F" & H).Value, "hh:mm") par heure1a = Range("f"&h).Value
et vérifie avec MsgBox CDate(heure1b - heure1a) ou MsgBox CDate(heure1b > heure1a)
Cordialement