Sub DeleteUselessRows()
Dim plage As Range
With Sheets("Votre Région a date")
.Select
Set plage = .Range("$A$7:$AT$60")
With plage
.AutoFilter field:=4, Criteria1:="National", visibleDropdown:=True
plage.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter field:=4 'Annule le filtre
End With
End With
End Sub