Probleme protction cellule different scenarios

[hugsoo]

Bonjour Tous le monde,

j'ai un probleme dans mon code VBA. Mon code génère une feuille oum on client rentre des informations. j'aimerai proteger differentes cellules selon differents scenarios. j'ai mis en place dans excel un system qui affiche 1 ou 0 selon que la cellule est protegé ou pas. J'ai maintenant un probleme pour ecrire le code associé. Voici ou j'en suis. J'ai surement oublié quelque chose car ça ne marche pas.
Merci d'avance pour votre aide

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub lockunlock(sname As String)
 
'Barrer toutes les cellules
Sheets(sname).Activate
Sheets(sname).Cells.Locked = True
Sheets(sname).Cells(1, 1).Select
 
'Débarrer cellules requises
 x = 1
 
While Range("unlock_liste_noms").Offset(x, 0) <> ""
    If Range("unlock_liste_noms").Offset(x, 1) = 1 Then
        nametounlock = Range("unlock_liste_noms").Offset(x, 0)
        ActiveSheet.Range(nametounlock).Select
        Selection.Locked = False
    End If
    x = x + 1
Wend
 
If ActiveSheet.Range("Res_Strat") <> "" Then
    ActiveSheet.Range("unlock_strat_res").Select
    Selection.Locked = True
End If
 
Sheets(sname).Cells(1, 1).Select

Merci Hugo