Sub janvier_01()
ActiveWorkbook.FollowHyperlink Address:="Janvier.xlsx"
ActiveWorkbook.Sheets("01-001").Activate
ActiveSheet.Range("A1").Select
End Sub
Sub janvier_13()
ActiveWorkbook.FollowHyperlink Address:="Janvier.xlsx"
ActiveWorkbook.Sheets("01-013").Activate
ActiveSheet.Range("A1").Select
End Sub