Sub Build_URL()
Dim Ws As Worksheet ' Déclaration de variable Objet type WorkSheet (Feuille)
Dim N As Integer, i As Integer ' déclaration variable de type nombre entier
Set Ws = ActiveSheet ' Paramétrage de la variable Objet "Ws" sur Feuille Active
N = Application.CountIf(Range("A:A"), "*") ' trouve la dernière ligne non vide en "A"
For i = 1 To N ' Boucle sur chaque Cellule
With Ws.Range("A" & i) ' Avec la Feuille (Active) Cellule "A" ET i de la boucle
If Not Left(.Value, 8) = "https://" Then ' Si à les 8 caractères de Gauche ne sont pas déjà HTTPS://
.Value = "https://" & .Value ' La valeur de la Cellule scannée par la boucle conactène HTTP au début
Ws.Hyperlinks.Add Anchor:=Ws.Range("A" & i), Address:=.Value ' sur la Feuille j'ancre un Hyperlien sur la cellule et dont l'adresse est la valeur de la cellule
End If ' fin de condition
End With ' fin de "avec"
Next i ' fin de boucle
OuvrirURL ' on lance la macro de Sylvanu
End Sub