Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'la colonne O est masquée
'la plage nommée "date" vient du Menu Insertion/Nom/Définir - Date =DECALER(Feuil1!$O$2;;;NBVAL(Feuil1!$O:$O)-1)
If Target.Address <> "$J$7:$K$7" Then Exit Sub 'si la cllule active n'est pas la cellule fusionnée J7:K7, sort de la procédure
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
'filtre élaborée de la colonne A recopé en O1 sans doublons
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("O1"), Unique:=True
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub