Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Liste").[F2:H2] = "X"
If Not Intersect([A2:A14], Target) Is Nothing And Target.Count = 1 Then
[Dispo1].ClearContents
For Each c In [Groupe1]
If IsError(Application.Match(c, Range(Cells(2, Target.Column), Cells(14, Target.Column)), 0)) Then
Sheets("Liste").[F65000].End(xlUp).Offset(1, 0) = c
End If
Next c
End If
If Not Intersect([B2:B14], Target) Is Nothing And Target.Count = 1 Then
[Dispo2].ClearContents
For Each c In [Groupe2]
If IsError(Application.Match(c, Range(Cells(2, Target.Column), Cells(14, Target.Column)), 0)) Then
Sheets("Liste").[G65000].End(xlUp).Offset(1, 0) = c
End If
Next c
End If
If Not Intersect([C2:C14], Target) Is Nothing And Target.Count = 1 Then
[Dispo3].ClearContents
For Each c In [Groupe3]
If IsError(Application.Match(c, Range(Cells(2, Target.Column), Cells(14, Target.Column)), 0)) Then
Sheets("Liste").[H65000].End(xlUp).Offset(1, 0) = c
End If
Next c
End If
End Sub