Code bloquer l'écriture cellules

Bonjour !

J'ai un petit souci avec une macro:

Le code si dessous bloque l'écriture dans des cellules sans empêcher l'ouverture des liens hypertexte se trouvant dedans. Je l'ai mis dans un PrivateSub Activate sauf qu'il y a la selection d'afficher à l'écran

 Columns("K:K").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Serait t-il possible en modifiant le code que la sélection n'apparaissent pas et qu'il fasse directement la protection sans qu'on le voit ? Le code au dessus je l'ai fait avec l'enregistreur de macro

Merci d'avance

Hello, tu dois juste éviter de séléctionner:

Sub protec()

    With Columns("K:K").Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub

C'était tout simple en fait...

Merci à toi