For Each Cell_agence1 In xWb_source.Sheets(1).Range("A2:A" & test_derniere_case_1) 'Déplacement dans les cellules du document source
    If xWb_source.Sheets(1).Range("B" & Cell_agence1.Row) <> "" Then               'Vérification de l'utilité de cette ligne car si vide non intéressante
        For Each Cell_agence2 In xWb_verba.Sheets(1).Range("A2:A" & test_derniere_case_2)    'Déplacement dans les lignes du dic destination
            If xWb_source.Sheets(1).Range("A" & Cell_agence1.Row) <> xWb_verba.Sheets(1).Range("A" & Cell_agence2.Row) And Cell_agence2.Row = test_derniere_acse_2 Then      'On regarde si on a trouvé aucun match avant la dernière ligne du doc destination
                For compteur = 1 To test_derniere_colonne       
                    xWb_verba.Sheets(1).Cells(Cell_agence2.Row + 1, compteur) = xWb_source.Sheets(1).Cells(Cell_agence1.Row, compteur)     'On ajoute les informations de chaque colonne sur la ligne que l'on vient d'ajouter
                Next compteur
		test_derniere_case_2 = test_derniere_case_2 + 1  'On ajoute une ligne au compteur de ligne du doc destnation
            End If
        Next Cell_agence2
    End If
Next Cell_agence1