Recherche d'une ligne si...

Bonjour à tous,

Je dois faire en sorte que ma Variable DerLig = une ligne recherché...

Dim DerLig As Integer, LigSel As Integer
Dim LSearch As Integer, VSearch As String
Dim Sht As Worksheet
' Mise à Jour des variables
Set Sht = ActiveSheet
LigSel = Selection.Row
' Recherche la valeur de 'A' dans la feuille 'F1'
VSearch = Sht.Range("A" & LigSel)
If VSearch = "" Then
MsgBox "Vous n'avez pas sélectionné de ligne ou la ligne sélectionnée ne contient pas de valeur dans la cellule 'A'"
Range("A" & LigSel).Select
Exit Sub
End If
LSearch = LigFind("F1", 2, VSearch) ' Appelle la fonction dans le module
If LSearch = 0 Then
MsgBox "Cette ligne n'a pas été envoyé dans F1!"
Exit Sub
Else
DerLig = LSearch <-----
End If

Cependant, dans la feuille F1, la valeur est présente à plusieurs reprise... LA seule chose que je peux me baser c'est la section... "LB"

À chacune des lignes où il doit trouvé la valeur de Activesheet"A", il y a en colonne "A"(F1) la valeur "LB"...


Donc, comment puis-je lui faire pour ajouter un critère de recherche:
Si la ligne = A:"LB" et valeur de B:activesheet "A" alors Derlig = la ligne
If Sheet

Merci à l'avance!