Sub Figer_Plage()
Dim Lig_Debut As Long 'Ligne maximum 65536'
Dim Lig_Fin As Long
Dim Col_Debut As Integer 'Colonne maximum 256'
Dim Col_Fin As Integer
ActiveSheet.ScrollArea = ''
'La ligne si haut est à ajouter à une macro pour permettre de modifier le ScrollArea (Ajout/Suppresion de Lignes/Colonnes)'
With ActiveSheet
With .UsedRange
Lig_Debut = .Row
Lig_Fin = .Row + .Rows.Count - 1
Col_Debut = .Column
Col_Fin = .Column + .Columns.Count - 1
End With
.ScrollArea = Range(Cells(Lig_Debut, Col_Debut), Cells(Lig_Fin, Col_Fin)).Address
End With
End Sub