Comparaison de 2 valeurs avec plusieurs lignes

Sub test()
    'Darken55 - 11 juin 2019 ? 15:32
    'Bonjour,
    'Je cherche ? cr?er une macro et je suis bloqu? depuis un certain temps sur un point pr?cis.
    'Je souhaite comparer les cellules ? A19 et B19 ? sur la feuille ? stockenregistrment ? avec les cellules ? A et B ? de la feuille ? stockencours ?.
    'S?il y a correspondance de copier la ligne sur ? stockencours ? pour le coller ailleur.
    'Pour le moment je suis bloqu? avec le code que j?ai fait ci-dessous ; celui si compare bien les donn?es mais prend uniquement en compte la ligne 6 de la feuille ? stockencours ? je n?arrive pas ? ce que cela compare pour chaque ligne (jusqu?? 500).
    With Worksheets("stockencours")
         derlig = .Range("A" & Rows.Count).End(xlUp).Row        'derniere cellule non vide colonne A
         RA = Worksheets("stockenregistrement").Range("A19").Value
         RB = Worksheets("stockenregistrement").Range("B19").Value
         'boucle sur les lignes
         For n = 6 To derlig
            If RA = .Range("A" & n).Value And RB = .Range("B" & n).Value Then
                .Activate
                LT = LT + 1
                .Range("A" & n & ":G" & n).Select
                Selection.Cut
                Sheets("stocktermin?").Select
                Rows("6:6").Select
                Selection.Insert Shift:=xlDown
                Sheets("stockenregistrement").Select
                Range("D19:E19").Select
                Application.CutCopyMode = False
                Selection.Copy
                Sheets("stocktermin?").Select
                Range("H" & n).Select
                ActiveSheet.Paste
                'Range("C6").Select
            End If
        Next n
    End With
End Sub