Libérer les volets [Résolu]

[Runsh63]

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 !

[jfontaine]

Bonjour,

Et comme cela

Code :

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

[Runsh63]

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