Analyse des lignes d'un tableau Excel

Option Explicit
'

Sub ChercheSerieRecurente()

    Const SerieRecurente = "4567"

    Dim Flag As Boolean, strMessage As String
    Dim DerniereColonne As Long
    Dim DerniereLigne As Long
    Dim Boucle1 As Long, Boucle2 As Long
    Dim nbrLignes As Long, Boite() As Long
    
    With ActiveSheet
        DerniereColonne = .Cells(1, 1).End(xlToRight).Column
        DerniereLigne = .Cells(65535, 1).End(xlUp).Row
        For Boucle1 = 1 To DerniereLigne
            For Boucle2 = 1 To DerniereColonne
                If (InStr(1, Cells(Boucle1, Boucle2).Value, SerieRecurente, vbTextCompare) > 0) Then
                    Flag = True
                End If
            Next Boucle2
            If (Flag) Then
                Flag = False
                nbrLignes = (nbrLignes + 1)
                ReDim Preserve Boite(nbrLignes)
                Boite(nbrLignes - 1) = Boucle1
            End If
        Next Boucle1
    End With

    ' Affichage du nombre de lignes contenant la série
    MsgBox "Nombre de lignes trouvées : " & nbrLignes

    For Boucle1 = 0 To UBound(Boite)
        strMessage = strMessage & vbLf & Boite(Boucle1)
    Next Boucle1

    ' Affichage des numéros de lignes contenant la série
    MsgBox strMessage

End Sub
'