Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("G2:G100,L2:L100,Q2:Q100"), Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
ValSaisie = Target
Application.Undo
npoint = Len(Target) - Len(Replace(Target, ":", ""))
p = InStr(Target, ValSaisie)
If p > 0 Then
Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1)
If Right(Target, 1) = ":" Then
Target = Left(Target, Len(Target) - 1)
End If
Else
If Target = "" Then
Target = ValSaisie
Else
If npoint < Cells(Target.Row, Target.Column - 2) - 1 Then
Target = Target & ":" & ValSaisie
End If
End If
End If
Application.EnableEvents = True
End If
End Sub