Boucle pour équivalent d'une recherchev à deux critères

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 3 Then Exit Sub
If Target.Column = 3 Then 'S'execute s'il y a un changement dans la collonne "C"
Dim CTRL_A As String 'V : CTRL de la valeur de la colonne A
Dim CTRL_B As String 'V : CTRL de la valeur de la colonne B
Dim CL_A As String 'V : Nom du client à chercher
Dim PR_B As String 'V : Nom du produit à chercher
Dim Ligne As Integer 'V : Ligne en cours
    Ligne = 2 'La ligne 2 est définie car la ligne 1 contient surement des titres
Dim Ligne_end As Integer 'V : N° de la dèrnière ligne
Dim Date_end As Long 'Valeur de la date en format nombre

CTRL_A = Cells(Ligne, 1).Value 'Initialisation de la valeur de CTRL avant la boucle
Do   'Cherche la valeur de la dèrnière ligne
    Ligne = Ligne + 1
    CTRL_A = Cells(Ligne, 1).Value
Loop While CTRL_A <> ""

Ligne_end = Ligne - 1 'sauvegarde la dernière ligne
Ligne = 2 ' Réinitialise la valeur de la ligne
CL_A = Cells(Ligne_end, 1).Value 'sauvegarde le client
PR_B = Cells(Ligne_end, 2).Value 'sauvegarde le produit

CTRL_A = Cells(Ligne, 1).Value 'Initialisation des valeur pour la boucle
CTRL_B = Cells(Ligne, 2).Value
Do While Ligne <> Ligne_end
    If CTRL_A = CL_A Then
        If CTRL_B = PR_B Then
            Date_end = Cells(Ligne, 3).Value 'Sauvegarde de la valeur date
        End If
    End If
Ligne = Ligne + 1
CTRL_A = Cells(Ligne, 1).Value
CTRL_B = Cells(Ligne, 2).Value

Loop
Cells(Ligne_end, 4) = Date_end

End If
End Sub