Liste déroulante + Protection

Bonjour,

J'ai un fichier avec une liste déroulante affectée à une macro.

Voila la macro :

Sub Toto()

ActiveWorkbook.Windows(1).Zoom = 76
Dim larg As Variant, col As Long
larg = Array(16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16)
For col = 1 To 13
Columns(col).ColumnWidth = larg(col - 1)
Next col

Sheets("Capa échantillon").Range("K7:N7").EntireColumn.Hidden = False

If Sheets("Capa échantillon").Range("Q11").Value = "X" Then
Sheets("Capa échantillon").Range("K1").EntireColumn.Hidden = False
Sheets("Capa échantillon").Range("L1 : N1").EntireColumn.Hidden = True

ElseIf Sheets("Capa échantillon").Range("Q12").Value = "X" Then
Sheets("Capa échantillon").Range("K1").EntireColumn.Hidden = True
Sheets("Capa échantillon").Range("M1:N1").EntireColumn.Hidden = True
Sheets("Capa échantillon").Range("L1").EntireColumn.Hidden = False

ElseIf Sheets("Capa échantillon").Range("Q13").Value = "X" Then
Sheets("Capa échantillon").Range("K1:L1").EntireColumn.Hidden = True
Sheets("Capa échantillon").Range("M1:N1").EntireColumn.Hidden = False

End If

End Sub

Donc comme vous pouvez le voir, en fonction du choix que je fais dans ma liste déroulante, des cellules se masquent.

Maintenant, j'aimerais protéger ma feuille afin que l'on puisse remplir SEULEMENT les cases que l'on a besoin de remplir. Ca je sais faire !
Mais quand je protège la feuille, je ne peux plus choisir dans ma liste déroulante et rien ne se masque... Est ce qu'il y a une manip' à faire pour autoriser la zone de la liste déroulante ? Ou alors carrément protéger la feuille dans la macro en laissant les cellules que je veux laisser en accès libre et la liste déroulante ?

Merci d'avance.