Salut Tomatino et bienvenue sur le Forum,
La macro ci-dessous fonctionne parfaitement dans un fichier "tout à fait normal". Ce n'est pas dit que tu n'auras pas des problèmes selon la constellation du fichier dans lequel tu vas l'utiliser. Le cas échéant, fournis-nous ton fichier personnel.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Integer
For i = 1 To Sheets.Count
If ActiveSheet.Name = Sheets(i).Name Then ActiveSheet.Range("A1") = i
Next
End Sub
NB : Ce code est à placer dans ThisWorkbook.
NB bis : La prochaine fois évite de dire d'avance que la macro que tu demandes est très simple, si jamais ce n'est pas le cas. Moi je la trouve pas si nul, ma macro
Cordialement.