Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Validation.InCellDropdown = False Then Exit Sub
If Target <> "" Then
Target.Hyperlinks.Add Anchor:=Target, Address:= _
"C:\Mes documents\mes recettes\" & Target & ".txt" 'ou autre extension
End If
End Sub