XL 2021 Classer des cellules dans des feuilles spécifiques

=SIERREUR(INDEX(Feuil1!$B$2:$B$8;PETITE.VALEUR(SI(Feuil1!$C$2:$C$8=1;LIGNE(Feuil1!$B$2:$B$8)-1);LIGNE(1:1)));"")

Sub Distribuer()
    Dim T, T2, i%, j%, DL%, L%
    T = Range("A2:C" & Range("A65500").End(xlUp).Row): DL = UBound(T)
    For i = 1 To 4
        ReDim T2(1 To DL, 1 To 2): L = 1
        For j = 1 To DL
            If T(j, 3) = i Then
                T2(L, 1) = T(j, 1): T2(L, 2) = T(j, 2): L = L + 1
            End If
        Next j
        With Sheets(CStr(i))
            .[A2:B10000].ClearContents
            .[A2].Resize(UBound(T2, 1), UBound(T2, 2)) = T2
        End With
    Next i
End Sub

Option Explicit
Private Sub Worksheet_Deactivate()
   Dim SGrAffec As SsGr, TR(), L As Long, Detail
   For Each SGrAffec In Gigogne([B2:C2], 2, , 1)
      ReDim TR(1 To SGrAffec.Count, 1 To 1)
      L = 0
      For Each Detail In SGrAffec.Co
         L = L + 1: TR(L, 1) = Detail(1)
         Next Detail
      With Worksheets(CStr(SGrAffec.Id)).[B2]
         .Resize(1000).ClearContents
         .Resize(UBound(TR, 1)).Value = TR
         End With
      Next SGrAffec
   End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not IsNumeric(Sh.Name) Then Exit Sub
Application.ScreenUpdating = False
Sh.Rows("2:" & Sh.Rows.Count).Delete 'RAZ
With Sheets("Feuil1").[A1].CurrentRegion
    .AutoFilter
    .AutoFilter 3, Sh.Name 'filtre automatique
    .Copy [A1]
    .AutoFilter 'ôte le filtre
End With
Columns(3).Clear
End Sub