activesheet

Bonjour, Dans le code ci-dessous je souhaiterais remplacer 3 lignes ThisWorkbook.Sheets("Base_VBA").Range("A2:A43").Value = nom ThisWorkbook.Sheets("Base_VBA").Range("B2:B43").Value = semaine ThisWorkbook.Sheets("Base_VBA").Range("C2:C43").Value = jour Il faudrait remplacer ("Base_VBA") par...