Function RechercheCol(Nomfeuille As String, LigEntete As Long, Entete As String) As String
Dim Cell As Range, Plg As Range
Dim £a As String
With Sheets(Nomfeuille)
Set Plg = .Range(.Cells(LigEntete, 1), .Cells(LigEntete, .Cells(LigEntete, Rows(1).Cells.Count).End(xlToLeft).Column))
For Each Cell In Plg
If Entete = Cell Then
£a = Cell.Address
£a = Replace(£a, LigEntete, "")
RechercheCol = Replace(£a, "$", "")
Exit Function
End If
Next Cell
End With
End Function