Sub test()
Fichier_stats = ThisWorkbook.Sheets("Macro").Range("Fich_stats").Value
nom_fich_stats = Right(Fichier_stats, InStr(StrReverse(Fichier_stats), "\"))
nom_fich_stats = Right(nom_fich_stats, Len(nom_fich_stats) - 1)
Nom_Macro = ActiveWorkbook.Name
Workbooks.Open Filename:=Fichier_stats, Local:=True
Sheet4.Name = Sheets("Stats").Range("semaine1").Value 'pour info Sheet4 = Sheet4 (W36) et ici il prend bien le nom voulu pour le test : W40