XL 2010 Rechercher ou extraire, des numéros avec critères

Sub Worksheet_Activate()
    Dim Ligne%, L%, C%, DL%, tablo
    DL = Range("A65500").End(xlUp).Row
    Range("A2:D" & DL).ClearContents
    Application.ScreenUpdating = False
    DL = Sheets("Base").Range("A65500").End(xlUp).Row
    tablo = Sheets("Base").Range("A1:D" & DL)
    Ligne = 2
    ' les numéros qui commencent par 01144 ; 01173 et 01176 .
    For i = 2 To UBound(tablo)
        Numéro = Left(tablo(i, 1), 5)
        If Numéro = "01144" Or Numéro = "01173" Or Numéro = "01176" Then
            For C = 1 To 4
                Cells(Ligne, C) = tablo(i, C)
            Next C
            Ligne = Ligne + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

'------------------------------------------------------------------------------------------------------
' Pour ajouter un numéro, il suffit de rajouter avant la ")" :    ,"xxxxx"   avec xxxxx le numéro désiré
Liste = Array("01144", "01173", "01176")
'------------------------------------------------------------------------------------------------------

tablo = Sheets("Base").Range("A2:N" & DL) ' Modifier le "N" pour réduire agrandir le tableau
For C = 1 To 14         ' 14 est la 14ème colonne, colonne N. peut être modifié si besoin.