Microsoft 365 transférer en groupe vers nouveau onglet

[pbfonjouom]

Bonjour, je vous en prie venez moi en aide.
j'ai ce premier classeur dans lequel je fais régulièrement des mises à jour. je voudrais pouvoir récupérer chaque fois les lignes qui ont un numéro de client identique (colonne B) ou encore même nom(colonne C) et les ranger dans un nouveau classeur.
voic en PJ mon classeur
grand merci pour le temps que vous m'accorderiez

 

[Dranreb]

Bonjour.
Voici le classeur précurseur

 

[Dranreb]

Remarque: une fois le complément installé et la référence cochée, cette procédure a fonctionné du premier coup chez moi :

Option Explicit
Sub ÉclaterFeuillesNouveauxClasseurs()
   Dim TTit(), Client As SsGr, TRés(), Détail, L As Long, C As Long
   TTit = Feuil1.[A1:I1].Value
   For Each Client In Gigogne(Feuil1.[A2:I2], 2)
      ReDim TRés(1 To Client.Count, 1 To 9)
      L = 0
      For Each Détail In Client.Co
         L = L + 1
         For C = 1 To 9: TRés(L, C) = Détail(C): Next C
         Next Détail
      Workbooks.Add
      [A1:I1].Value = TTit
      [A2:I2].Resize(L).Value = TRés
      Next Client
   End Sub