Merci MAIS....
étant presque débutant en la matiére je comprends difficilement ton code qui me donne # VALEUR
j'ai essayé de l'aménager pour qu'il colle à mon exemple ce qui me donne :
Public Function select2(base As Range, liste_choix As Range, liste_bases As Range)
Dim lig As Integer, col As Integer
lig = base.Columns(1).Find(liste_choix).Row
col = base.Rows(1).Find(liste_bases).Column
select2 = Cells(lig, col)
End Function
sachant que j'ai redéfinie la zone BASE = B7
13
...j'ai toujours un message #VALEUR... sans doute n'y comprends-je rien...
... petit détail complémentaire = je suis en EXCEL 2000
donc je renouvelle mon appel.