Microsoft 365 renvoi sur des feuilles en fonction des clients

Private Sub Worksheet_Deactivate()
Dim SGrClient As SsGr, TRésu(), L As Long, Détail, C As Integer, Wsh As Worksheet
For Each SGrClient In Gigogne(Me.[A2:M2], 1)
   ReDim TRésu(1 To SGrClient.Count, 1 To 13): L = 0
   For Each Détail In SGrClient.Co: L = L + 1
      For C = 1 To 13: TRésu(L, C) = Détail(C)
         Next C, Détail
   On Error Resume Next
   Set Wsh = Worksheets(SGrClient.Id)
   If Err Then
      Set Wsh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
      Wsh.Name = SGrClient.Id
      Wsh.[A1:M1].Value = Me.[A1:M1].Value: End If
   On Error GoTo 0
   Wsh.Rows(UBound(TRésu, 1) + 2).Resize(10000).Delete xlShiftUp
   Wsh.[A2].Resize(UBound(TRésu, 1), 13).Value = TRésu
   Next SGrClient
   End Sub