Function TrouvLign(Surv As Variant, Jour As Variant, Serie As Variant, Epve As Variant, Plage As Range) As Integer
'Fonction permettant de trouver le numero de ligne d'une valeur dans une plage donnée.
Dim Lig As Integer, P1, I, Tblo, Trouve, Vale
Tblo = FaireTableau(Plage)
Set P1 = CreateObject("scripting.dictionary")
For I = 1 To UBound(Tblo)
If Surv = Tblo(I, 1) And CDate(Jour) = Tblo(I, 2) And Serie = Tblo(I, 6) And Epve = Tblo(I, 7) Then
TrouvLign = I + 1
End If
Next I
End Function