Macro en fonction du nom de l'onglet

Bonjour à tous,

J'aimerais effectuer une manoeuvre sur mon fichier excel:

Mon fichier permet de faire un copier-coller d'un workbook à un autre (mettre de l'info venant d'un fichier excel vers une autre avec ce code):

Sub

Workbooks("Relevé1").Worksheets("Maison1").Range("B5:E35").Value = Workbooks("Relévé1").Worksheets("Summary").Range("I13:N43").Value

End Sub

Cependant là où cela se corse:

Quand je suis dans mon workbook "Relevé1", j'aimerais que si je change le nom de la feuille (par exemple changer "Maison1" en "Maison2") le code lui change aussi en:

Sub

Workbooks("Relevé1").Worksheets("Maison2").Range("B5:E35").Value = Workbooks("Relévé1").Worksheets("Summary").Range("I13:N43").Value

End Sub

cela automatiquement (pour l'instant je dois changer manuellement le code si je renomme mon onglet ! )

Si quelqu'un a une idée?

Merci d'avance,

QQ2018

Bonjour,

Et bien tu as simplement à enlever :

Workbooks("Relevé1").Worksheets("Maison1")

Et le remplacer par

Activesheet.Range("B5:E35").Value = Workbooks("Relévé1").Worksheets("Summary").Range("I13:N43")

ou

dim ong as string 
Sub 
ong = Activesheet.Name
Workbooks("Relevé1").Worksheets(ong).Range("B5:E35").Value = Workbooks("Relévé1").Worksheets("Summary").Range("I13:N43").Value
End Sub

Cdt,

Bonjour Valc merci pour ta réponse!