Recherche & référence NumLigne

Function NumLigne%(rch As Variant, plage As Range)
'Renvoie le Nº de la ligne de la plage "plage" où se trouve "rch " dans cette plage (si pas trouvé --> 0)
'Si "rch" est un chiffre (par ex 12,53) et que la plage soit, par ex, A1:A250 : NumLigne(12,53, A1:A250)
'Si "rch" est du texte (par ex Romina) et que la plage soit, par ex, A1:A250 : NumLigne("Romina", A1:A250)

Dim x As Integer

    On Error Resume Next
    x = Application.Match(rch, plage, 0)
    On Error GoTo 0
    
    NumLigne = x

End Function

Function PosItemInArray%(rch As Variant, plage As Range)
'Renvoie le Nº de la ligne de la plage "plage" où se trouve "rch " dans cette plage (si pas trouvé --> 0)
'Si "rch" est un chiffre (par ex 12,53) et que la plage soit, par ex, A1:A250 : PosItemInArray(12,53, A1:A250)
'Si "rch" est du texte (par ex Romina) et que la plage soit, par ex, A1:A250 : PosItemInArray("Romina", A1:A250)

Dim x As Integer

    On Error Resume Next
    x = Application.Match(rch, plage, 0)
    On Error GoTo 0
    
    PosItemInArray = x
End Function

Function NumLigne(rch As Variant, plage As Range) As Long
'Renvoie le Nº de la ligne de la plage "plage" où se trouve "recherche" dans cette plage (si pas trouvé --> 0)
'Si "recherche" est un chiffre (par ex 12,53) et que la plage soit, par ex, A1:A250 : NumLigne(12,53, A1:A250)
'Si "recherche" est du texte (par ex Romina) et que la plage soit, par ex, A1:A250 : NumLigne("Romina", A1:A250)

  Dim x As Long, r As Long
  r = plage.Row
  On Error Resume Next
  x = Application.Match(rch, plage, 0)
  On Error GoTo 0
  If x > 0 Then NumLigne = x + r - 1
  
End Function

Function NumLigne&(ByVal recherche As Variant, ByVal plage As Range, Optional ByVal FeuilOrRangeIndex As Boolean = 0)
'Renvoie le Nº de la ligne de la plage "plage" où se trouve "recherche" dans cette plage (si pas trouvé --> 0)
'Si "recherche" est un chiffre (par ex 12,53) et que la plage soit, par ex, A1:A250 : NumLigne(12,53, A1:A250)
'Si "recherche" est du texte (par ex Romina) et que la plage soit, par ex, A1:A250 : NumLigne("Romina", A1:A250)
'proposé by patricktoulon
Dim x As Long
    NumLigne = 0
    With Application: x = .IfError(.Match(recherche, plage.Value, 0), 0): End With
    If x > 0 Then NumLigne = x + ((plage.Row - 1) * Abs(FeuilOrRangeIndex))
End Function