Erreur .validation avec feuille protégée VBA

Bonjour,

J'ai un problème avec un code VBA qui crée une liste de validation sur mon fichier. Ma feuille doit être protégée pour les donner accès aux utilisateurs seulement aux cellules où il y a une validation à choisir (cellules A10:A42). Lorsque je met la protection sur la feuille, mon code VBA me donne une erreur dans ma boucle With à la ligne qui commence par .Add Type

Si j'enlève la protection, le code fonctionne comme désiré.

La plage source de la validation n'est pas protégée. (rdp!'A4:ADernièrelignenonvide).

Pouvez-vous me donner un coup de main svp.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     Dim LCRN           As Integer
    Dim Range          As Range
Dim ShtF            As Worksheet
Dim ShtC            As Worksheet
   Set ShtF = ThisWorkbook.Sheets("Feuil1")
  Set ShtC = ThisWorkbook.Sheets("rdp")
 
    LCRN = ShtC.Range("$A$4").End(xlDown).Row + 1
    Set Range = ShtC.Range("$A4:A" & LCRN)

    With ShtF.Range("A10:A42").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="='" & ShtC.Name & "'!" & Range.Address
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Merci à l'avance !!