Ajouter une apostrophe au début et en fin de chaque cellule

bonjour à tous,

voilà j'ai une liste d'urls et pour les intégrer dans un code python je dois les entourer d'apostrophes seulement je n'y arrive pas j'ai chaque fois une apostrophe à la fin mais jamais au début je pense que ça vient des adresses urls

Sub AjouterApostropheURLs()
    Dim cell As Range
    Dim selectedRange As Range
    Set selectedRange = Application.Selection
    For Each cell In selectedRange.Cells
        If InStr(cell.Value, "https") > 0 Then
            cell.Value = "'" & cell.Value & "'"
        End If
    Next
End Sub

ce code ne fonctionne pas je vous joins un fichier avec des urls valides

d'avance merçi

Bonjour,

Votre code fonctionne, vous avez bien une apostrophe en début (voir la chaine dans la barre de formule). Seulement, c'est normal que le caractère n'apparaisse pas car c'est ce qu'on utilise pour transformer une valeur numérique en alpha numérique mais on ne voit jamais ce caractère.

bon et bien merçi du renseignement je marque le sujet comme résolu