XL 2016 Bloquer mise en forme conditionnelle (apres couper et tri)

Sub MeFC()

With Sheets("Besoins").Range("A2:W15")            'Sélection des plages où doit s'appliquer la MeF
    'Supprime les MFC existantes
    .FormatConditions.Delete
    'Ajoute une condition (Vrai lorsque la cellule est non vide)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=EST.IMPAIR($A2)"
    .FormatConditions.Add Type:=xlExpression, Formula1:="=EST.PAIR($A2)"

    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.Color = 16771071       '.Interior.ColorIndex = 15 'Gris
    End With
    With .FormatConditions(2)
        .Interior.Color = 15555555
    End With
End With

End Sub

Sub MeFC()

With Sheets("Besoins").Range("A2:W300")            'Sélection des plages où doit s'appliquer la MeF
    'Supprime les MFC existantes
    .FormatConditions.Delete
    'Ajoute une condition (Vrai lorsque la cellule est non vide)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=EST.IMPAIR($A2)"
    .FormatConditions.Add Type:=xlExpression, Formula1:="=EST.PAIR($A2)"

    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.ColorIndex = 50
    End With
    With .FormatConditions(2)
        .Interior.ColorIndex = 44
    End With
End With

Sheets("Besoins").Range("P:P").FormatConditions.Delete
Sheets("Besoins").Range("P:P").Interior.Color = 65535

With Sheets("Besoins").Range("R2:R200")            'Sélection des plages où doit s'appliquer la MeF
    'Supprime les MFC existantes
    .FormatConditions.Delete
    'Ajoute une condition (Vrai lorsque la cellule est non vide)
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="Retard livraison"
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="DATE 15 jours"
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="Retard composant"
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="Retard composant et livraison"
    'DATE 15 jours

    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Font.ColorIndex = 3
        .Font.FontStyle = "Bold"
    End With
    With .FormatConditions(2)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.ColorIndex = 30
        .Font.FontStyle = "Bold"
    End With
    With .FormatConditions(3)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Font.ColorIndex = 3
        .Font.FontStyle = "Bold"
    End With
    With .FormatConditions(4)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.ColorIndex = 3
        .Font.FontStyle = "Bold"
    End With
End With

End Sub