si, moi ....
Enregistre par apprentissage une macro sur une seule feuille (je pense que tu l'avais fait en sélectionnant plusieurs feuilles)
Ensuite, entoure le code comme suit (c'est une idée, pas testée)
Dim ws As Worksheet
For Each ws In Worksheets
If Left(ws.Name, 5) = "CIORN" Then
ws.Select
' ICI TON CODE ENREGISTRE
EndIf
Next