Re : recuperer nom dans colonne
Bonjour, cela peut se faire comme ceci :
Sub Macro1()
Dim dl&
dl = Feuil1.Range("a" & Rows.Count).End(xlUp).Row
With Feuil1
.Range("A1:A" & dl).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.[B1], Unique:=True
End With
End Sub
Qu'il faut adapter...