probleme code

bonjour a tous et toute

voila j'ai un code qui me pose proble

(Option Explicit
Dim f As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Count = 1 Then _
Cells(Rows.Count, 2).End(xlUp)(2) = Target: f = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If f Then f = False: Range("A1").Select
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim J As Long
Dim Lg As Long
If Not Intersect(Range("D2:E2"), Target) Is Nothing And Target.Count = 1 Then
Lg = 2
If Range("F2") <> "" Then
Range("F2:M" & Range("F" & Rows.Count).End(xlUp).Row).ClearContents
End If
With Sheets("cmd")
For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If UCase(.Range("D" & J)) = UCase(Range("A2")) And UCase(.Range("B" & J)) = UCase(Range("B2")) Then
Range("D" & Lg & ":K" & Lg).Value = .Range("A" & J & ":H" & J).Value
Lg = Lg + 1
End If
Next J
End With
End If
End Sub)

mais cela me done une erreur ( non ambigue detecter worksheet-change )

quelqu'un pourait il m'aider

merci d'avance