Macro,"majuscule", me fausse le résultat de la 1ère

Bonjour à tout le forum,
Pourriez-vous me dire pourquoi, dans la 2ème macro, la condition ;If Not IsNumeric est sans effet..
je tape 0345 "et la macro majuscule" me transforme en 0,15625

Private Sub Worksheet_Change(ByVal Target As Range) 'de job75
Application.EnableEvents = False
Set Var = Application.Intersect(Target, Range("F14:NG15,F20:NG21"))
If Target.Columns.Count = 1 And Target.Rows.Count = 1 Then
If Not Var Is Nothing And IsNumeric(Target.Value) Then
Target.Value = Left(Format(Target, "0000"), 2) & ":" & Right(Format(Target, "0000"), 2)
End If
End If
Application.EnableEvents = True

Application.EnableEvents = False
If Not Application.Intersect(Target, Range("F14:NG15")) Is Nothing Then
If Not IsNumeric(Range("F14:NG15")) Then 'j'ai mis cette condition
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End If
Application.EnableEvents = True
End Sub

Merci pour votre aide,
Bien amicalement,
Christian