Help : 3 Macros "simples" à faire fonctionner

Bonjour,

Je rencontre un problème. j'ai réalisé trois boutons de chois "niveau 1", 2 et 3.
Selon le choix de l'utilisateur cela bloque certaines colonnes.
le problème est que mon fichier ne fonctionne pas bien.
Quand je l'exécute il fonctionne mais uniquement pour le niveau sur lequel il a été exécuté et les autres ne sont pas actifs.
J'espère etre claire.
Par exemple j'exécute le niveau 1. Les colonnes autres que B sont bloquées quand je coche la case "niveau 1. Mais si je change et que je coche la case "niveau 2", ce sont toujours les colonnes de la colonne B qui sont accessibles..
Help ! (c'est ma première utilisation des macros... soyez indulgents ^^)

Voici ce que j'ai :

Sub niveau1()
With ActiveSheet
.Unprotect
.Cells.Locked = True
End With
Set rng = ActiveSheet.Range("B24:B71")
rng.Locked = False
ActiveSheet.Protect
End Sub

Sub niveau2()
With ActiveSheet
.Unprotect
.Cells.Locked = True
End With
Set rng = ActiveSheet.Range("D24:D71")
rng.Locked = False
ActiveSheet.Protect
End Sub

Sub niveau3()
With ActiveSheet
.Unprotect
.Cells.Locked = True
End With
Set rng = ActiveSheet.Range("F24:F71")
rng.Locked = False
ActiveSheet.Protect DrawingObjects:=True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub