Macro dispatch et rajouter une protection au onglet

Bonjour, voila j'ai une macro dispatch sur feuil1 qui dispatch et crée des onglets et renomme l'onglet avec le code agence, je voudrais rajouter une protection au donné de cet onglet pour bloquer la modification avec mots de passe simples dans ma macro et ce que c'est possible....

Bonjour, j'ai rajouté cette ligne Activesheet Protect Password: ="Sophia" après la ligne

For i = 6 To UBound(Tablo, 1) mais le problème que la protection s'active sur toute le feuil mais je veux que sur le tableau crée

sur chaque onglet

Merci pour votre aide