Bonjour Misterruben, DD, le forum
Un essai en rajoutant des "'" sur subaddress
ActiveSheet.Range("A" & m).Hyperlinks.Add Anchor:=ActiveSheet.Range("A" & m), Address:="", SubAddress:="'" & Sheets(N).Name & "'!A1", TextToDisplay:=Sheets(N).Name
Ca me parait fonctionner.