Libérer les volets

Bonjour à toutes et tous,

J'aimerai dans une macro libérer les volets d'un fichier de données que je colle touts le mois. J'ai essayé plusieurs écritures avec ce que j'ai glâné sur ce forum mais rien à faire, je me retrouve toujours avec le même message d'erreur, à savoir "Object doesn't support this property or method".
Voilà ci-dessous le bout de code entré en dernier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test()   With Sheets("Original data (2)") .UsedRange.EntireColumn.Delete With .Cells .FreezePanes = False End With End With     End Sub

---

Pourriez-vous m'aider à le rendre correct SVP ?
Merci d'avance !

Bonjour,

Et comme cela

Code:

---

1 2	Sheets("Original data (2)").Select ActiveWindow.FreezePanes = False

---

Merci beaucoup jfontaine, ça marche parfaitement.
J'ai cherché désespéramment sans le ".Select" mais ça ne fonctionne pas. A priori c'est mieux ainsi.
Bonne journée