Copie macro dans une autre feuille

Bonjour,

j'ai un classeur avec plusieurs feuilles de calcul dedans.

Dans l'une d'entre elles, j'ai une macro dans Thisworkbook pour indiquer la date de dernière sauvegarde :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("Paiement adhérent unique").Range("A2").Value = "Dernière sauvergarde le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName

End Sub

Je voulais copier cette feuille dans le même classeur puis la renommer pour un autre projet.

Comment faire pour que la macro fonctionne dans les deux feuilles ?

Merci

Bonjour,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim commentaire As String
commentaire = "Dernière sauvergarde le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
Sheets("Feuil1").Range("A2").Value = commentaire
Sheets("Feuil2").Range("A2").Value = commentaire

End Sub

En remplaçant Feuil1 et Feuil2 par le nom de tes onglets.

Est-ce bien ce que tu souhaites ?