Merci bcp c'est exactement cela!
Juste pour information, en vba où devrais je intégrer ladite condition... et laquelle pour avoir le même résultats ?
Sub Fournisseur_FSL()
Set a = Sheets("GL")
Set d = Sheets("test")
Set dest = d.Range("A8")
Set base = CreateObject("Scripting.Dictionary")
b = Range(a.[G5], a.[G65000].End(xlUp)).Value
o = Range(a.[F5], a.[F65000].End(xlUp)).Value
For Each c In b
base(c) = ""
Next c
dest.Resize(base.Count, 1) = Application.Transpose(base.keys)
dest.Resize(base.Count, 1).Sort Key1:=dest, Order1:=xlAscending
Set base = Nothing
End Sub
Merci encore !