Function Persoheure(rng As Range)
Dim V, a
Persoheure = ""
V = Split(rng.Text, ":"): If UBound(V) < 1 Then Exit Function
a = Split(rng.Text, ":")(0)
If IsNumeric(a) Then Persoheure = Val(a)
End Function
Function PersoMinute(rng As Range)
Dim V, b
PersoMinute = ""
V = Split(rng.Text, ":"): If UBound(V) < 1 Then Exit Function
b = Split(rng.Text, ":")(1)
If IsNumeric(b) Then PersoMinute = Val(b)
End Function