CadXP: Gelés tous les calques sauf 2 en macro VBA - CadXP

Bonjour,

Je suis novice dans la programmation VBA et j'ai besoin d'aide :

J'ai besoin de créer une macro en VBA qui me permettrai de geler tous les calques sauf 2.
J'aifais cette petite macro mais ne fonctionne pas :
Sub test()

Dim i As Integer


For i = 0 To ThisDrawing.layers.Count - 1

If ThisDrawing.layers.objetName = "Y-EQP-SI" Then

ThisDrawing.layers(i).Freeze = False
Else
ThisDrawing.layers(i).Freeze = True
End If
Next i
End Sub

Quelqu'un aurait-t-il une idée ?

Cordialement,

Fabdu91630