Copier du nom de l'onglet dans une céllule

Bonjour,

J'avais cherché pendant un petit moment une macro qui m'afficher dans une cellule le nom de l'onglet.

J'ai fini par en trouver une il y a un moment, qui "fonctionne" mais je me rend compte, que la macro ne s’arrête pas à mon onglet dans le quel je force le nom de la cellule

J'ai pensé utiliser un système de couleur a teste sur la cellule ou l'onglet...mais je n'y arrive pas

Option Explicit

Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("F2").Value = ws.Name
Next ws
End Sub

Ci-joint un fichier d'exemple.

Merci d'avance.

Bonjour,

Je viens de trouver le code Banzaï64

Private Sub Worksheet_Activate()
  Application.EnableEvents = False
  Range("A1") = ActiveSheet.Name
  Application.EnableEvents = True
End Sub

Et ca semble fonctionner comme je le souhaite

https://forum.excel-pratique.com/excel/nom-d-un-onglet-repporte-dans-une-cellule-t46078.html

Merci. Si vous avec d'autre suggestion ou conseil, je suis preneur