Erreur dans code - Résolu

[castor30]

Bonjour le forum,
Le code ci-dessous devrait me cocher si double clic :
- en C5 le champ Nommé Tous Cc soit C7:Cxxx
- en E5 le champ nommé Tous Cci soit E7:Cxxx
Mais ça ne fonctionne pas
Je vous remercie de bien vouloir le corriger

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   'OKOK
    If Target.Column = 3 Or Target.Column = 3 Then
    End If
  
    If Target.Column = 3 Or Target.Column = 5 Then
        Target = "X"
        Target.Offset(0, 1).Select
    End If
  
    If Not Application.Intersect(Target, Range("C5")) Is Nothing Then
        Range("TousCc").Copy
        Range("MailCc").PasteSpecial xlValues
        [A1].Select
    End If


    If Not Application.Intersect(Target, Range("E5")) Is Nothing Then
        Range("TousCci").Copy
        Range("MailCci").PasteSpecial xlValues
        [A1].Select
    End If
End Sub

 

[castor30]

J'ai changé le code par ce code et ça marche :

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("Mail").Select
If Target.Column = 3 Then Target = "X"
    If Not Application.Intersect(Target, Range("C5")) Is Nothing Then
        Range("TousCc").Copy
        Range("MailCc").PasteSpecial xlValues
        [A1].Select
    End If

If Target.Column = 5 Then Target = "X"
    If Not Application.Intersect(Target, Range("E5")) Is Nothing Then
        Range("TousCci").Copy
        Range("MailCci").PasteSpecial xlValues
        [A1].Select
    End If
            Target.Offset(0, 1).Select
    Cancel = True
End Sub