Bonjour Francis,
Je n'ai pas testé mais si je comprends ce que tu veux faire, essaie en ajoutant un 'ws.select' juste après 'For each ...'.
La façon dont tu l'as écrit, 'activesheet' reste toujours sur la même feuille. C'est à dire, celle à partir de laquelle tu lances la macro.
Le code teste donc toujours la même chose.
En espérant que cela te dépanne.
Abel.