Tester des adresses de sites

Bonjour,

Je te propose en vba de mettre toutes ta liste de sites en liens hypertextes, comme ceci:

Faire Alt F11 pour accéder à l'éditeur. Inserer un UserForm, mettre un CommandButton, double cliquez dessus et mettre ce code:

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
 Private Sub CommandButton1_Click()
For_X_to_Next_Ligne
Worksheets("Feuil1").Columns("A:A").AutoFit 'a adapter Feuille 1
End Sub
Sub For_X_to_Next_Ligne()
    Set FL1 = Worksheets("Feuil1") 'a adapter Feuille 1
    NoCol = 1 'lecture de la colonne 1 a adapter colonne A
    For NoLig = 1 To Range("A65536").End(xlUp).Row
        Var = FL1.Cells(NoLig, NoCol)
        FL1.Cells(NoLig, NoCol).Select
       ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Var, TextToDisplay:= _
        Var
    Next
    Set FL1 = Nothing
End Sub

Ensuite faire F5 pour compiler

Faire une copie de ton classeur avant