Private Sub CommandButton1_Click() 'bouton "Valider"
Dim O As Worksheet 'déclare la variable O (onglet)
Dim DL As Integer
Dim PL As Range
Dim TC() As Variant
Dim TEST As Boolean
Application.Calculation = xlCalculationManual
Set O = Worksheets("Feuil1") 'définit l'onglet O
Set PL = O.Range("A1")
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row
TC = Array("030110", "030112", "030113", "030114")
Application.ScreenUpdating = False
If OptionButton1.Value = True Then
For I = 2 To DL
If CStr(O.Cells(I, "F")) <> "100110" Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I), Application.Union(PL, O.Rows(I)))
Next I
PL.Delete
End If
If OptionButton2.Value = True Then
For I = 2 To DL
TEST = False
For J = 0 To 3
If CStr(O.Cells(I, "F")) = TC(J) Then TEST = True
Next J
If TEST = False Then Set PL = IIf(PL.Cells.Count = 1, O.Rows(I), Application.Union(PL, O.Rows(I)))
Next I
PL.Delete
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Unload Me
End Sub