Excel VBA – Macro pour figer une zone sous forme d’escalier.

Bonjour le forum
Comment peut-on figer entièrement la zone grise du fichier ci-joint?
J’ai essayé avec le code suivant :
Sub figer_volet()
Range("A1:F27,G1:I22").Activate
ActiveWindow.FreezePanes = True
End Sub
Le résultat n’est pas celui souhaité.
Je vous remercie d’avance