Protection de feuilles

bonjour

j'ai saisi le code suivant avec une erreur que je n'arrive pas à résoudre

Sub verification_de_protection ()
Dim Sh As Worksheet  
Dim i As Integer
For i = 1 To Sheets.Count
If Sh(i).ProtectContents = False Then
MsgBox "Feuille : " & Sh(i).Name & " non protégée"
End If
Next
End Sub

l'erreur etant sur la ligne

 If Sh(i).ProtectContents = False Then

avec la mention " variable objet ou varable de bloc with non definie "

auriez vous une idée sur la facon de corriger cette ligne ?

Merci pour vos réponses

Salut Rocket4

Je pense que ton problème vient de ta variable objet "Sh"

Tu ne peux et ne doit pas l'utiliser dans ce contexte

Essaye

Sub verification_de_protection ()
Dim Sh As Worksheet  
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).ProtectContents = False Then
MsgBox "Feuille : " & Sheets(i).Name & " non protégée"
End If
Next
End Sub

A+

Merci "BrunoM45 " en effet c'est bien ca ! merci pour ton savoir faire je ne l'aurais jamais deviné

Cordialement ,Rocket