Suprimmer les lignes qui contiennent..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    With Worksheets("COURSE JOUABLES")
    Comp = .Range("K1")
    DerLig = .Range("B" & Rows.Count).End(xlUp).Row
    For i = DerLig To 2 Step -1
        If .Cells(i, 2) <> Comp Then ' si colonne B de la ligne en cours <> K1
            .Rows(i).Delete
            x = x + 1
        End If
    Next
    End With
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox x & "  lignes supprimée"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$L$2" Then Exit Sub
If Target = "" Then Exit Sub
[A1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=[L1:L2], copytorange:=Sheets("Feuil1").[A1]
End Sub

Option Explicit
Sub Ligne_supprimer_si_valeur_différente()
    [b1].AutoFilter
    ActiveSheet.Range("a:j").AutoFilter Field:=2, Criteria1:="<>" & [k1]
    Rows("2:" & Rows.Count).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    [b1].AutoFilter
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim PLV As Range 'déclare la variable PLV (PLage Visible)

If Target.Address <> "$K$1" Then Exit Sub 'si le changement a lieu ailleurs que dans la celllue K1, sort de la procédure
DL = Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne 2 (=B)
Set PL = Range("B2:B" & DL) 'définit la plage PL
Range("A1").AutoFilter Field:=2, Criteria1:="<>" & Target.Value 'filtre la colonne B avec "<> K1" comme critères
Set PLV = PL.SpecialCells(xlCellTypeVisible) 'définit la plage PLV des cellules visibles de la plage PL (non filtrées)
PLV.EntireRow.Delete 'supprimes les lignes de la plage PLV
Range("A1").AutoFilter 'supprime le filtre automatique
End Sub