Sub Test()
MaMacro Sheets("Tableau Principal")
MaMacro Sheets("DATA")
End Sub
Sub MaMacro(F As Object)
MsgBox F.Name 'pour tester
'-------
End Sub
Option Explicit
Sub transfert()
Sheets("Tableau Principal").Range("A1:ZE1000").Copy Sheets("DATA").Range("A1")
End Sub