Option Explicit
Dim DerLgn As Integer
Dim Lgn As Integer
Sub Test()
Application.ScreenUpdating = False
With Worksheets("Données Brutes")
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row
For Lgn = DerLgn To 13 Step -1
If .Cells(Lgn, 1) Like "Course ? *" Then
If .Cells(Lgn, 1).Offset(, 21) < 8 And .Cells(Lgn, 1).Offset(2, 24) > 0 Then
.Cells(Lgn, 1).Resize(5, .Columns.Count).EntireRow.Delete
End If
If .Cells(Lgn, 1).Offset(7, 1) <> "N°" Then
.Cells(Lgn, 1).Offset(5, 1).Resize(7).EntireRow.Delete
End If
End If
Next Lgn
End With
Application.ScreenUpdating = True
End Sub