Dim Variable As String
Variable = ActiveSheet.Name
[I][COLOR="SeaGreen"]dans le code cette variable sera utilisée comme ceci[/COLOR][/I]
Sheets(Variable).Range("A1") = ....
Dim Variable As Worksheet
Set Variable = ActiveSheet
[COLOR="seagreen"][I]dans le code cela donnera[/I][/COLOR]
Variable.Range("A1") = ...