Faire une boucle de recherche double discriminante / VBA.

Bien le bonjour !

Je dois créer un fichier de saisit et d'enregistrement. Les fichiers de saisis vont aller s'enregistrer dans le fichier d'enregistrement.
Par contre l'un des fichier de saisis a besoin d'un rappel de ce qui a été précédemment enregistré.

Pour se faire, il faut que je fasse une recherche dans la colonne B de "Sauvegardes Enregistrements_Course Raideurs Décapages", pour trouver le tableau du bon numéro de lancement et de la bonne fraction du lot.
Cela me fait donc deux recherches, qui tournent jusqu'à faire correspondre les deux recherches ensemble.

Là où je coince, c'est que le programme se mort là queue : première recherche Ok, deuxième fausse, donc on recommence... ainsi de suite.
Je ne trouve pas le petit bout de code pour lui dire d'aller plus loin dans ses recherches.

J'espère avoir été compréhensible, et je vous remercie grandement d'avance.
Ci-joint, le code certainement hasardeux.

Private Sub CommandButton2_Click()

'recherche n° lancement:
Workbooks.Open Filename:="P:\Technique\METHODES\6.DECAPAGE\Saisies et sauvegardes décap' courses raid\Sauvegardes Enregistrements_Course Raideurs Décapages.xlsm"
    
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
Dim Trouve2 As Range, PlageDeRecherche2 As Range
Dim Valeur_Cherchee2 As String, AdresseTrouvee2 As String

    'Set Trouve = .FindNext(Trouve)
    'Selection.Next(Unit:=wdLine, Count:=1).Select
    
     Do
     Set Trouve.Address = Trouve.Address + 1
     Valeur_Cherchee = Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Range("E3").Value
        Set PlageDeRecherche = ActiveSheet.Range("B9:B100")
        Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
            If Trouve Is Nothing Then
                AdresseTrouvee1 = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address
            Else
                AdresseTrouvee1 = Trouve.Address
                Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Range("T1") = AdresseTrouvee1
            End If

'recherche fraction du lot:
        Valeur_Cherchee2 = Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Range("I3").Value
        Set PlageDeRecherche2 = ActiveSheet.Trouve.Address.Offset(rowOffset:=1, columnOffset:=0)
        Set Trouve2 = PlageDeRecherche2.Cells.Find(what:=Valeur_Cherchee2, LookAt:=xlWhole)
            If Trouve2 Is Nothing Then
                AdresseTrouvee2 = Valeur_Cherchee2 & " n'est pas présent dans " & PlageDeRecherche.Address
            Else
                AdresseTrouvee2 = Trouve2.Address
                Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Range("T2") = AdresseTrouvee2
            End If
    'If Trouve <> Trouve2.Offset(rowOffset:=-1, columnOffset:=0).Address Is Nothing Then
        
    Loop While Trouve <> Trouve2.Offset(rowOffset:=-1, columnOffset:=0).Address
    'End If
'On chope le tableau de contrôle et la valeur moyenne
Dim Trouve3 As Range, PlageDeRecherche3 As Range
Dim Valeur_Cherchee3 As String, AdresseTrouvee3 As String
        Valeur_Cherchee3 = "Moyenne"
        Set PlageDeRecherche3 = ActiveSheet.Range("C10:C100")
        Set Trouve3 = PlageDeRecherche3.Cells.Find(what:=Valeur_Cherchee3, LookAt:=xlWhole)
            If Trouve3 Is Nothing Then
                AdresseTrouvee3 = Valeur_Cherchee3 & " n'est pas présent dans " & PlageDeRecherche.Address
            Else
                AdresseTrouvee3 = Trouve3.Address
                Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Range("T3") = AdresseTrouvee3
            End If


'Condition de vérification et affichage valeur de la moyenne
On Error GoTo xxx

If Trouve.Address = Trouve2.Offset(rowOffset:=-1, columnOffset:=0).Address Then

GoTo Fin
xxx:
    Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Activate
    MsgBox "Recherche non aboutie", vbOKOnly + vbExclamation, "Attention"
Fin:
    Workbooks("Sauvegardes Enregistrements_Course Raideurs Décapages").Close savechanges:=False
Exit Sub

    Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Range("D12").Value = Trouve2.Offset(rowOffset:=0, columnOffset:=1).Value
Else
    Workbooks("Enregistrement_Décapages.xlsm").Sheets("Feuil1").Activate
    MsgBox "Recherche non aboutie"
End If

Workbooks("Sauvegardes Enregistrements_Course Raideurs Décapages").Close savechanges:=False

End Sub