XL 2021 Afficher la valeur Min d'un tableau structuré avec une macro

Sub test()
    Dim x, minValue As Long
    minValue = Application.Min(Range("c2:c100"))
    With Range("c2:c100")
        x = Filter(Evaluate("transpose(if(" & .Address & "=" & _
                            minValue & ",row(" & .Address & ")))"), False, 0)
    End With
End Sub

Sub Mini()
'
    Call Filtrer("=")

End Sub

Sub PasMini()
'
    Call Filtrer("<>")

End Sub

Sub Filtrer(Critere As String)
'
Dim EtatFiltrage As AutoFilter
Dim Mini As Integer

    Application.ScreenUpdating = False

    ' Le filtrage du TS est-il activé ?
    Set EtatFiltrage = Range("élèves").ListObject.AutoFilter

    ' Si le filtrage du TS est activé on le désactive
    If Not EtatFiltrage Is Nothing Then Range("élèves").ListObject.DataBodyRange.AutoFilter

    ' Recherche de la valeur minimale dans la colonne "Jours d'ancienneté"
    Mini = WorksheetFunction.Min(Range("élèves[Jours d''ancienneté]"))
    ' Activation du filtre avec la valeur minimale
    Range("élèves").ListObject.DataBodyRange.AutoFilter Field:=4, Criteria1:=Critere & Mini

End Sub

Sub test()
    Dim arr, x, minValue As Long
    Sheets("Feuil2").[a1].CurrentRegion.Clear
    With Sheets("Feuil1").[b2].CurrentRegion
        minValue = Application.Min(.Columns(4))
        x = Filter(.Parent.Evaluate("transpose(if((isnumber(" & .Columns(4).Address & ")=" _
                                    & "true)*(" & .Columns(4).Address & "=" & minValue & _
                                    "),row(1:" & .Rows.Count & ")))"), False, 0)

        If UBound(x) = -1 Then Exit Sub
        arr = Application.Index(.Value, Application.Transpose(x), [transpose(row(1:4))])
        If UBound(x) = 0 Then
            Sheets("Feuil2").[a1].Resize(, UBound(arr)) = arr
        Else
            Sheets("Feuil2").[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
        End If
    End With
End Sub

Sub test()
    Dim arr, x, e, minValue As Long
    Sheets("Minimum").[a1].CurrentRegion.Clear
    Sheets("Autres").[a1].CurrentRegion.Clear
    With Sheets("Feuil1").[b2].CurrentRegion
        minValue = Application.Min(.Columns(4))
        For Each e In Array(Array("=", "Minimum"), Array("<>", "Autres"))
            x = Filter(.Parent.Evaluate("transpose(if((isnumber(" & .Columns(4).Address & ")=" _
                                        & "true)*(" & .Columns(4).Address & e(0) & minValue & _
                                        "),row(1:" & .Rows.Count & ")))"), False, 0)

            If UBound(x) = -1 Then Exit Sub
            arr = Application.Index(.Value, Application.Transpose(x), [transpose(row(1:4))])
            If UBound(x) = 0 Then
                Sheets(e(1)).[a1].Resize(, UBound(arr)) = arr
            Else
                Sheets(e(1)).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
            End If
        Next
    End With
End Sub

Sub test()
    Dim x, arr, e, minValue As Long
    Dim tbl1 As ListObject, colRng As Range

    ' Définir le tableau structuré
    Set tbl1 = Sheets("Feuil1").ListObjects("Tableau1")

    ' Effacer les données des feuilles de destination
    Sheets("Minimum").[a1].CurrentRegion.Clear
    Sheets("Autres").[a1].CurrentRegion.Clear

    ' Définir la colonne à vérifier (4ème colonne du tableau structuré)
    Set colRng = tbl1.ListColumns(4).DataBodyRange

    ' Trouver la valeur minimale dans la colonne 4
    minValue = Application.Min(colRng)

    ' Boucler sur les conditions pour Minimum et Autres
    For Each e In Array(Array("=", "Minimum"), Array("<>", "Autres"))
        ' Utiliser la fonction Filter et Evaluate pour obtenir les lignes correspondantes
        x = Filter(colRng.Parent.Evaluate("transpose(if((" & colRng.Address & e(0) & minValue & _
                                          "),row(1:" & colRng.Rows.Count & ")))"), False, 0)

        ' Si aucune ligne n'est trouvée, quitter la boucle
        If UBound(x) = -1 Then Exit Sub

        ' Extraire les lignes correspondantes dans le tableau
        arr = Application.Index(tbl1.DataBodyRange.Value, Application.Transpose(x), [transpose(row(1:4))])

        'Coller l'entete dans la feuille de destination
        Sheets(e(1)).[a1].Resize(, 4) = tbl1.HeaderRowRange.Value
       
        ' Redimensionner et coller les données dans les feuilles de destination
        If UBound(x) = 0 Then
            Sheets(e(1)).[a2].Resize(, UBound(arr)) = arr
        Else
            Sheets(e(1)).[a2].Resize(UBound(arr), UBound(arr, 2)) = arr
        End If
    Next
End Sub