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