en fait j'ai trouvé:
il suffit de mettre ce code ds chaque feuille, et hop, plus jamais de problème!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = "NomDeLaFeuille"
End Sub
Merci Pierre pour la piste, j'ai creusé! ;-D
Lpp