Protéger des cellules

Bonjour,

Je connais votre efficacité et votre rapidité alors voilà mon probleme :
Je cherche à protéger une plage de cellule en fonction de la valeur d'une autre cellule
J'ai essayé avec ca mais ca répond pas exactement à mes attentes :

Range("e33:l51").Select
For Each cell In Selection
If cell.Value <> "" Then
cell.Select
Selection.Locked = True
End If
Next


Je veux protéger toutes les cellules (vide et non vide) d'une plage en fonction de la valeur d'une autre cellule de la même ligne...
Un fichier vaut mieux qu'un long discours .....
Merci d'avance.
A+
Olivier