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