bonsoir Leuk , bonsoir Renato
la macro ci dessous permet d'extraire toutes les Url ( cible sur les mots commençant par "http" ) qui se trouvent dans les chaines de caracteres de la colonne A
comme je ne connais pas le format de ton fichier j'ai essayé de prendre en compte tous les cas de figure dans la cellule
le seul imperatif : que les chaines de caracteres soient séparées par des espaces
Sub ExtraireURL2()
Dim Cell As Range
Dim Place As Byte, Fin As Integer, Debut As String 'à adapter si plus de 256 caracteres par ligne
Dim i As Integer
For Each Cell In Sheets("Feuil1").Range("A1:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
Debut = 1
Do While InStr(Debut, Cell, "http") <> 0
Place = InStr(Debut, Cell, "http")
Fin = InStr(Place, Cell, " ")
i = i + 1
If Place = 0 Then 'si l'url est la premiere chaine de la ligne
Sheets("Feuil2").Cells(i, 1) = Left(Cell, Fin)
Else
Sheets("Feuil2").Cells(i, 1) = Mid(Cell, Place, Fin - Place) 'place les Url dans la feuille 2
End If
Debut = Fin
Loop
Next Cell
End Sub
bonne soiree
MichelXld