Bonjour,
Peux tu essayer ce code dans le module de la feuille concernée
Sub WorkSheet_Change(ByVal Target As Range)
Dim a As Integer, b As Integer, c As Integer, d As Integer
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:C20")) Is Nothing Then
If Len(Target.Value) <> 4 Then
Exit Sub
Else
a = Mid(Target.Value, 1, 1)
b = Mid(Target.Value, 2, 1)
c = Mid(Target.Value, 3, 1)
d = Mid(Target.Value, 4, 1)
Target.Value = a & b & ":" & c & d
End If
End If
End Sub
Valable pour la plage A1:C20 à adapter
Ou alors
Click droit sur la cellule ou la plage de cellules
Format de cellule
Onglet Nombre
Catégorie Personnalisée
Type ##\:##
a tester
EDIT: Salut Banzaï ...Code bien plus propre et plus adapté à la demande que celui que j'ai proposé ...je le met dans mes archives... Merci
Bonne Journée