Function test()
Dim tablo() As Variant
Application.Volatile
Nom = Sheets("Feuil1").Range("B1") 'on récupère l'intitulé de la colonne à scruter
tablo = Sheets("Feuil2").UsedRange.Value 'on récupère l'ensemble des data de la feuille2
With Sheets("Feuil2").Rows(1)
Set ligne = .Find(Nom, lookat:=xlWhole) 'on cherche ou se trouve l'intitulé
If Not ligne Is Nothing Then
col = ligne.Column 'on récupère son numéro de colonne qui sera aussi l'indice dans le tablo
End If
End With
For i = 2 To UBound(tablo, 1) 'pour chaque ligne de la colonne "col" du tablo
If tablo(i, col) <> "" Then 'si on a quelque chose -c'est donc le premier élément
test = tablo(i, col) ' on renvoie l'élément
Exit For 'et on quitte la boucle
End If
Next i
End Function