XL 2016 lien hypertext

Private Sub CommandButton1_Click()

Dim nb As Integer 'déclare la variable nb (NomBre)
Dim chem As String 'déclare la variable chem (CHEMin d'accès)
Dim dest As Range 'déclare la variable dest(DESTination)
 
chem = "C:\Users\Jean-Paul. Masson\Documents" 'définit la variable chen (à adapter)
nb = Application.WorksheetFunction.CountA(Columns(2)) + 1 'définit la variable nb
 
If ActiveSheet.Range("B1") = "" Then 'condition : si la cellule B1 est vide
Set dest = ActiveSheet.Range("B1") 'definit la variable dest (B1)
Else 'sinon
Set dest = ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0) 'définit la variable dest (la première vide rencontrée)
End If 'fin de la condition
 
dest.Select 'sélectionne la cellule de destination
 
With Selection
.Hyperlinks.Add Anchor:=Selection, Address:=chem & "AB" & nb & ".pdf", TextToDisplay:="AB" & nb 'attribue le lien
End With
End Sub