XL 2019 AutoFiltre et zone de données

Sub Macro4()
Dim der&
   Application.ScreenUpdating = False
   With Sheets("Nomenclature")
      .Columns("a:c").Interior.Color = xlColorIndexNone
      der = Application.Match(Chr(255), .Columns("b:b"))
      If der = 1 Then Exit Sub
      On Error Resume Next
      With .Range("a1:c" & der)
         .AutoFilter Field:=3, Criteria1:="chap"
         .SpecialCells(xlCellTypeVisible).Interior.Color = RGB(255, 190, 90)    ' orange
         .AutoFilter Field:=3, Criteria1:="ss-chap"
         .SpecialCells(xlCellTypeVisible).Interior.Color = RGB(255, 255, 100)    ' jaune
         .AutoFilter Field:=3, Criteria1:="déf"
         .SpecialCells(xlCellTypeVisible).Interior.Color = RGB(200, 255, 200)    ' vert
         .Rows(1).Interior.Color = RGB(200, 200, 200)    ' gris
         .AutoFilter
         On Error GoTo 0
      End With
   End With
   ActiveWorkbook.Save
End Sub