...un truc à au moins 4 cas, combinant recherche en lignes ou en colonnes avec résultat en lignes ou en colonnes …
Mais enfin voilà :
Function Ressortir(ByVal Quoi, ByVal VClé, ByVal Dans)
Dim RngAC As Range, TRés(), DansHor As Boolean, RésuHor As Boolean, _
D As Long, LD As Long, CD As...