VBA Recherche des URL sur une Feuille Excel 2010

Sub extraction_URL()
    Dim TURL() As String
    'adaptez a votre fichier: colonne et texte url abregee
    Texte_URL = "Debut texte commun tout URL"
    With Worksheets("feuil1")
        'derniere cellule non vide colonne A
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        'mise en memoire plage cellules
        Set Plage = .Range("A2:A" & derlig)
        'nombre d'URL
        Nb_URL = Application.CountIf(Plage, Texte_URL & "*")
        If Nb_URL > 0 Then
            'redimensionement table suivant nb URL
            ReDim TURL(Nb_URL - 1)
            lig = 1
            'boucle de recherche URL abregee
            For Itr = 1 To Nb_URL
                lig = .Columns("A").Find(Texte_URL & "*", Cells(lig, 1), , xlWhole).Row
                'edriture table URL
                TURL(Itr - 1) = Cells(lig, 1)
            Next Itr
            'transposition Table URL colonne B
            .Range("B2").Resize(Nb_URL) = Application.Transpose(TURL)
        End If
    End With
End Sub