J'ai ajouté dans ThisWorkbook Private Sub Workbook_Open() Dim Sh As Worksheet For Each Sh In Sheets Sh.Protect userinterfaceonly:=True Next Sh End Sub et dans Tri ActiveSheet.Protect userinterfaceonly:=True Malgré ça ça bug mais pas toujours dans Tri lignes Range("A3:A" & LastRow).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _ MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal 'Si ces 2 lignes "bloquent" voir si la feuille n'est pas PROTÉGÉE Merci à vous pour vos éventuels retours Cordialement...

Quleques fois ça bug

Bonjour le forum

J'ai ajouté dans ThisWorkbook

Private Sub Workbook_Open()
Dim Sh As Worksheet
  For Each Sh In Sheets
    Sh.Protect userinterfaceonly:=True
  Next Sh
End Sub

et dans Tri

ActiveSheet.Protect userinterfaceonly:=True

Malgré ça ça bug mais pas toujours dans Tri lignes

Range("A3:A" & LastRow).Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _

MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

'Si ces 2 lignes "bloquent" voir si la feuille n'est pas PROTÉGÉE

Merci à vous pour vos éventuels retours

Cordialement

Bonjour Al, bonjour le forum,

Ça m'est déjà arrivé. Dans ce cas je déprotège en début de code et je reprotège a la fin...

Bonjour ThauThème

Oui j'en ai déduit ça aussi et je fais comme toi lorsque ça arrive.

C'est pour ça que j'ai mis "Résolu"

Y a t-il mieux à faire?

Si tu as une idée je suis preneur

Merci à toi d'avoir répondu

Bonne journée

Cordialement