Bonjour,
Le code fonctionne très bien, je souhaiterai juste une modification si possible à savoir :
Si des cellules de la colonne I sont vides, que ça ne mette pas de X dans les colonnes X et/ou Z
En vous remerciant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
 
    If Target.Column <> 24 And Target.Column <> 26 Then
        Cancel = True
        Exit Sub
    End If
 
    Select Case Target.Address
        Case "$X$1"
                Range("SelDestMailCc") = "X"
                Range("SelDestMailCci") = ""
        Case "$Z$1"
                Range("SelDestMailCc") = ""
                Range("SelDestMailCci") = "X"
 
    End Select
    If Not Intersect(Target, Range("SelDestMailCc")) Is Nothing Then
            Target.Offset(0, 2) = IIf(Target = "X", "X", "")
            Target = IIf(Target = "X", "", "X")
    End If
        If Not Intersect(Target, Range("SelDestMailCci")) Is Nothing Then
            Target.Offset(0, -2) = IIf(Target = "X", "X", "")
            Target = IIf(Target = "X", "", "X")
    End If
 
Cancel = True
Application.EnableEvents = True
End Sub