Plage de données

Sub Effacer()
Dim maPlage As Range
Dim DernLigne As Long
Dim DernCol As Long
With Worksheets("Feuil1")
  DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
  DernCol = .Cells(1, Columns.Count).End(xlToRight).Column
  If DernLigne < 5 Then DernLigne = 5
  Set maPlage = .Range(.Cells(5, 1), .Cells(DernLigne, DernCol))
  maPlage.ClearContents
  maPlage.ClearFormats
End With
End Sub

Sub Quadriller()
Dim maPlage As Range
With Worksheets("Feuil1")
  Set maPlage = .Range(.Cells(5, 5), .Cells(10, 10))
  maPlage.Borders.LineStyle = xlContinuous
End With
End Sub

Sub Filtre()
Dim n As Long
Dim maPlage As Range
n = 5
With Worksheets("Feuil1")
  Set maPlage = .Range(.Cells(5, 1), .Cells(5, n))
  maPlage.AutoFilter
End With
End Sub