probleme code

Bonjour tout le monde comment ça va?

Je voudrais savoir ou est mon erreur s'il vous plaid :


Private Sub CommandButton1_Click()
With Sheets("Menu").Range("E10:K11")
.Copy Sheets("Récapitulatif").Range("A65536").End(xlUp).Offset(1, 0)
.ClearContents
End With


If Range("G10") > 0 And Range("H10") > 0 Then
Sheets("Carte").Range("$C$3:$BX$40")(Range("G10"), Range("H10")) = "X"
End If
End Sub





Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("$C$3:$BX$40"), Target) Is Nothing Then
If UCase(Target) = "X" Then
MsgBox "X" & Cells(Target.Row, 1) & ":Y" & Cells(1, Target.Column)
End If
End If
End Sub