Function my_find_col1(plage As Range, value As String) As Range
' la colone de recherche
Dim searchCol
' le numéro de ligne
Dim rowNb As Integer
Set searchCol = plage.Columns(1)
rowNb = Application.WorksheetFunction.Match(value, plage, 1)
Set my_find_col1 = plage.Cells(rowNb, 1)
End Function