Problème de lien Hypertexte sous Excel

Sub valide_lien() ' validation liens d'une colonne
Dim lig As Long
Dim col As Integer
col = 2             ' numéro colonne à valider (B ?)
For lig = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
    If Cells(lig, col).Value <> "" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(lig, col), _
            Address:=Cells(lig, col).Value, TextToDisplay:=Cells(lig, col).Value
    End If
Next lig
End Sub

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, [A4]) Is Nothing Then
    Dim chemin As String
    chemin = Replace([A1].Value, "~", sel.Value)
    ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True
End If
End Sub

http://xxx.nom.nom2.com/xxyy/xxyy.php?chr_id=1080&action=report 

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not Intersect(sel, [A:A]) Is Nothing  And sel.Value <> "" Then
    Dim chemin As String
    chemin = Replace([B1].Value, "1080", sel.Value)
    ActiveWorkbook.FollowHyperlink Address:=chemin, NewWindow:=True
End If
End Sub