Sub MiseEnForme()
Dim zonePrix As Range
'récupérer la zone comprenant toutes les données
Set zonePrix = ActiveSheet.Range("C3").CurrentRegion
'enlever les 3 premières lignes ainsi que les 3 premières colonnes
Set zonePrix = zonePrix.Offset(3, 3).Resize(zonePrix.Rows.Count - 3, zonePrix.Columns.Count - 3)
'modifier le format
zonePrix.NumberFormat = "$#,##0_);($#,##0)"
'figer les volets
zonePrix(1, 1).Select
ActiveWindow.FreezePanes = True
zonePrix.Select
End Sub