Filtre ou fonction excel

Sub Bilan()
    Dim rngPlage        As Range
    Dim blnCouleur      As Boolean
    Dim intColonne      As Integer
    Dim lngLigneFin     As Long
    Dim lngIndex        As Long
    Dim lngIndexCopie   As Long
    Dim wshFeuille      As Worksheet
    Dim wshBilan        As Worksheet
    
    ' création de l'onglet Bilan où seront recopiées les lignes répondant à la condition (texte en bleu)
    Set wshBilan = Sheets.Add
    wshBilan.Name = "Bilan"
    
    ' parcourir toutes les feuilles (sauf Bilan)
    lngIndexCopie = 1               ' 1ere ligne où copier les données dans la feuille Bilan
    For Each wshFeuille In Sheets
        wshFeuille.Select
        If wshFeuille.Name <> "Bilan" Then
            Set rngPlage = wshFeuille.Range("A1:" & wshFeuille.Cells.SpecialCells(xlCellTypeLastCell).Address)
            ' nombre de lignes utilisées dans la feuille
            lngLigneFin = rngPlage.Rows.Count
            For lngIndex = 1 To lngLigneFin
                ' par défaut on considère que le texte est en bleu
                blnCouleur = True
                For intColonne = 2 To 256
                    If wshFeuille.Cells(lngIndex, intColonne).Font.Color <> vbBlue Then
                        ' si le texte de la colonne intColonne n'est pas en bleu
                        blnCouleur = False
                    End If
                Next
                ' si toute la ligne a le texte en bleu
                If blnCouleur Then
                    ' la copier dans la feuille Bilan
                    wshFeuille.Cells(lngIndex, 1).EntireRow.Copy Destination:=wshBilan.Cells(lngIndexCopie, 1)
                    lngIndexCopie = lngIndexCopie + 1
                End If
            Next
        End If
    Next
    Application.CutCopyMode = False
    
    wshBilan.Select
    Set rngPlage = Nothing: Set wshFeuille = Nothing: Set wshBilan = Nothing
End Sub

For intColonne = 2 To 256