bonjour,
je suppose que tu parles de cette macro
voici un correction
Private Sub CommandButton2_Click()
Dim strFichier As String
Dim strReper As String
'Changer ici pour le bon nom de répertoire:
strReper = "Z:\BJDC\SAJDC_68\Public\BPAI 68\SUIVI DES MAILS\DEPART 2019\JANVIER 2019"
'Ouvre une fenêtre pour rechercher le fichier à mettre en hyperlien
With Application.FileDialog(msoFileDialogFilePicker) 'file et non folder
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
.InitialFileName = strReper
.Filters.Clear
If .Show <> 0 Then
strFichier = .SelectedItems(1)
Else
Exit Sub
End If
End With
ThisWorkbook.Worksheets(1).Hyperlinks.Add ActiveCell, strFichier 'activecell au lieu de ce que tu as mis au paravant
End Sub