Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cellule As Range
If Target.Column = 3 Then
If Target.Value <> "" Then
With Worksheets("Km 0-20").Range("D49:AY113")
Set Cellule = .Find(What:=Target.Value, After:=Worksheets("Km 0-20").Range("D49"), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
End With
If Cellule Is Nothing Then
With Worksheets("Km 21-41").Range("D49:AY113")
Set Cellule = .Find(What:=Target.Value, After:=Worksheets("Km 21-41").Range("D49"), LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
End With
If Cellule Is Nothing Then Exit Sub
End If
Cancel = True
Application.Goto Cellule
End If
End If
End Sub