Re : Recherche département
Bonjour, sinon...une petite boucle
Sub reg()
Dim d As Dictionary
Set d = New Dictionary
a = Feuil1.[a1].CurrentRegion
For i = 2 To UBound(a)
d.Item(a(i, 1)) = a(i, 2)
Next
MsgBox d.Item(19) (pour l'exemple renvoi COrreze)
End Sub