J'ai r=E9cup=E9r=E9 ce code sur le site d'un illustre collaborateur du NG.
'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
If Target.Column =3D 79 And Target.Count =3D 1 Then
'tri par ordre alphab=E9tique
[CA4:CB1000].Sort Key1:=3D[CA4]
'report de la valeur nouvellement saisie dans colonne Q
[CA4:CA1000].AdvancedFilter Action:=3DxlFilterCopy, _
CopyToRange:=3DRange("Q4"), Unique:=3DTrue
End If
'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Il fonctionne plutot bien pour tous les mots saisis en bas de la liste
situ=E9e en colonne CA, pourvu que la nouvelle saisie ne soit pas en
avant en ordre alphab=E9tique par rapport au nom d=E9j=E0 en place.
Sur la ligne :
[CA4:CA1000].AdvancedFilter Action:=3DxlFilterCopy, _
CopyToRange:=3DRange("Q4"), Unique:=3DTrue
il donne alors le message d'erreur 1004 :
"Nom de champ introuvable ou incorrect dans la plage d'extraction"
