Re Carole,
Plusieurs choses :
Pour les réponses qui tardent, ne t'inquiète pas, c'est pas un problème. On est pas toujours devant l'ordi. Heureusement ;°)
Worksheets est un mot-clé VBA, il ne faut pas l'utiliser en tant que variable sous peine de résultats inattendus.
J'ai testé le code avant de poster et ça marchait chez moi. Donc je ne vois qu'une solution c'est que tes noms d'onglets sont en majuscules ou tout en minuscules. Donc je te propose la correction suivante pour le test du nom :
If LCase(Left(Worksheets.Name, 5)) = "piste" Then
Comme ça, peut importe la casse.
Si ça ne marche toujours pas, il faudrait que tu postes un exemple avec plusieurs feuilles (dont des "piste...") et je regarderai.
Bonne soirée.
José