Demande aide code Vba

Private Sub CommandButton3_Click()
Dim CocheE As Long
Dim CocheG As Long

' Sélection des adresses mails ColE pour ColAI
    Application.ScreenUpdating = False
    Columns("E:G").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="X"
        [Admail].Copy
        Range("P2").PasteSpecial xlValues
          
' Sélection des adresses mails ColG pour ColAJ
    Columns("E:G").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="X"
        [Admail].Copy
        Range("Q2").PasteSpecial xlValues
    Selection.AutoFilter

'Efface les X dans les 2 colonnes
    [CocheE].ClearContents      ' Qualificateur incorrect
    [CocheG].ClearContents     ' Qualificateur incorrect
    [H1].Select
    Application.ScreenUpdating = True
End Sub