en validation matricielle par Ctrl+Maj+Entrée=INDEX(Data!A$1:A$50;MIN(SI(NB.SI(I$1:I1;Data!A$2:A$50)=0;SI(Data!A$2:A$50<>"";LIGNE(Data!A$2:A$50)))))&""
Application.ScreenUpdating = False
Range("A2:A" & Range("A65535").End(xlUp).Row).Copy
Range("I2").Select
ActiveSheet.Paste
Selection.RemoveDuplicates Columns:=1, Header:=xlNo
[A1].Select
Application.ScreenUpdating = True
.......... une fois de plus, je n'ai pas pris le temps de vérifier la version du demandeurBonjour à tous,
Salut Philippe,
Es-tu sûr que RemoveDuplicates soit déjà opérationnel sous XL 2003 ?
A++ l'ami
A+ à tous
Ca fonctionne sur 2003.
Sub toto()
Range("A1").CurrentRegion.AdvancedFilter xlFilterCopy, , Range("I2"), True
End Sub