Sub MAJ()
Dim LOBD As ListObject, Données As Collection, Numéro As SsGr, T(), L&, C&, Cas%, Détail, Src1(), Src2()
Set LOBD = Feuil1.ListObjects("tbl_bdd")
Set Données = Gigogne(TableUnique(LOBD, Feuil2.ListObjects("tbl_inflow")), 1)
ReDim T(1 To Données.Count, 1 To 9)
For Each Numéro In Données
Cas = 0
For Each Détail In Numéro.Co
If Détail(0) = 0 Then
Src1 = Détail: Cas = 1
Else
Src2 = Détail
Select Case Src2(3)
Case "CAN", "INA", "RCA", "RET": Cas = Cas Or 2
End Select: End If
Next Détail
Select Case Cas
Case 1: L = L + 1: For C = 1 To 9: T(L, C) = Src1(C): Next C ' N'existe que dans BDD.
Case 2: L = L + 1: For C = 1 To 9: T(L, C) = Src2(C): Next C ' N'existe que dans Inflow.
Case 3: L = L + 1: For C = 1 To 9: T(L, C) = Src2(C): Next C ' Existe des deux cotés.
End Select: Next Numéro
LOBD.ListRows(1).Range.Resize(L).Value = T