For Each Cell_agence1 In xWb_source.Sheets(1).Range("A2:A" & test_derniere_case_1)
    If xWb_source.Sheets(1).Range("B" & Cell_agence1.Row) <> "" Then
        For Each Cell_agence2 In xWb_verba.Sheets(1).Range("A2:A" & test_derniere_case_2)
            If xWb_source.Sheets(1).Range("A" & Cell_agence1.Row) = xWb_verba.Sheets(1).Range("A" & Cell_agence2.Row) Then
            GoTo next_cell
            End If
            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_case_2 Then
                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)
                Next compteur
                test_derniere_case_2 = test_derniere_case_2 + 1
            End If
        Next Cell_agence2
    End If
next_cell:
Next Cell_agence1