Vérouiller cellule selon sa valeur

Bonjour à toutes et à tous,

Je cherche à faire un référendum via un fichier excel. Je voudrais que lorsque les personnes ont répondu cela vérouille la cellule à la protection du classeur. Voici mon code mais cela ne prend pas en compte la valeur de la cellule, cela prend juste la cellule sélectionné.

Sub protect()

' Programme protection des cellules saisies

' Déclarationn de la variable à incrémenter

Dim numero As Integer

numero = 7

' Tant que numero est inférieur ou égal à 39 faire

While numero <= 39

If Cells(numero, 2).Value = "OUI" Then

Selection.Locked = True

MsgBox "Votre réponse à été vérouillé"

Selection.FormulaHidden = False

End If

numero = numero + 1 ' On incrémente de 1 la variable Numero

Wend

End Sub

Merci de votre aide

Bonjour

Un essai

Merci en tout cas malgré le retard