Sub Open_file1()
Dim Fichier As String
Sheets("Home").Select
Producteur = Range("C16").Text
Reference = Range("C18").Text
Fichier = "G:\Commercial\Produits\Fiches de spécifications\" & Producteur & "\" & Dir("G:\Commercial\Produits\Fiches de spécifications\" & Producteur & "\" & Reference & ".pdf")
ThisWorkbook.FollowHyperlink Fichier
End Sub