saisir des heures sans les :

Private TEST As Boolean 'déclare la variable TEST

Private Sub Worksheet_Change(ByVal Target As Range)
Dim V As Double 'déclare la variable V (Valeur)
Dim H As Byte 'déclare la variable H (Heure)

If IsNumeric(Target.Value) = False Then Exit Sub 'si la valeur n'est pas numérique, sort de la procédure
If Target.Cells.Count > 1 Then Exit Sub 'si selection multiple, sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
If TEST = True Then Exit Sub 'si TEST est [VRAI], sort de la procédure (pour éviter la boucle sur l'événement Change)
H = IIf(CInt(Target.Value) < 1000, CByte(Left(Target.Value, 1)), CByte(Left(Target.Value, 2))) 'définit l'heure H en selon inférieure ou supérieure à 10
V = H / 24 + CByte(Right(Target.Value, 2)) / 60 / 24 'définit la variable V
TEST = True 'définit la variable TEST
Target.Value = Format(V, "hh:mm") 'revoie la valeur V dans la cellule
TEST = False 'redéfinit la variable TEST
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, flag As Boolean
Set r = Intersect(Target, [A:A], Me.UsedRange)
If r Is Nothing Then Exit Sub
r.NumberFormat = "General"
For Each r In r 'si entrées multiples (copier-coller)
  flag = False
  If r Like "#" Or r Like "##" Then r = r & ":": flag = True
  If r Like "###" Or r Like "####" Then r = Left(r, 2) & ":" & Mid(r & 0, 3, 2): flag = True
  If flag Then r.NumberFormat = "hh:mm"
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, x$
Set r = Intersect(Target, [A:A], Me.UsedRange)
If r Is Nothing Then Exit Sub
r.NumberFormat = "General"
For Each r In r 'si entrées multiples (copier-coller)
  If r Like "#" Or r Like "##" Or r Like "###" Or r Like "####" Then
    x = Format(r, "0000")
    r = Left(x, 2) & ":" & Mid(x, 3)
    r.NumberFormat = "hh:mm"
  End If
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, x$
Set r = Intersect(Target, [A:A], Me.UsedRange)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
r.NumberFormat = "General"
For Each r In r 'si entrées multiples (copier-coller)
  If r Like "#" Or r Like "##" Or r Like "###" Or r Like "####" Then
    x = Format(r, "0000")
    r = Left(x, 2) & ":" & Mid(x, 3)
    r.NumberFormat = "hh:mm"
  End If
Next
Application.EnableEvents = True
End Sub

Set r = Intersect(Target, [A:A], Me.UsedRange)

Set r = Range("t9,v9")

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, x$
Set r = Intersect(Target, Me.UsedRange)
If r Is Nothing Then Exit Sub
Application.EnableEvents = False
r.NumberFormat = "General"
For Each r In r 'si entrées multiples (copier-coller)
  If r Like "#" Or r Like "##" Or r Like "###" Or r Like "####" Then
    x = Format(r, "0000")
    r = Left(x, 2) & ":" & Mid(x, 3)
    r.NumberFormat = "hh:mm"
  End If
Next
Application.EnableEvents = True
End Sub