XL 2019 msgbox suivant valeur d'une formule

Private Sub Liste_mod_Change()

'charger modèles dans zone critères
Liste_piece.Clear


If (Liste_mod.Value <> "Sélectionner un modèle") Then
'-----------------------
    If Application.WorksheetFunction.VLookup(Liste_mod.Value, Worksheets("BDD PRODUITS").Range("B1:F936"), 5, False) Then
        MsgBox "OUPPS" 'et le reste de ton code
    End If
'-----------------------
    Sheets("Opérations").Range("F6").Value = Liste_mod.Value
    charger_pieces
Else
    Sheets("Opérations").Range("F6").Value = ""

End If

Sheets("Opérations").Range("G6").Value = ""

End Sub

Private Sub Worksheet_Change(ByVal R As Range)


' Msgbox si catalogue ou non

Set R = Range("K7")
Select Case R
Case Is = 0
    MsgBox "N'est plus au catalogue, ne pas mettre le code CANNIBAL dans le rapport technique"

Case Else
    MsgBox "Est au catalogue MCO, merci de mettre le code CANNIBAL dans le rapport technique"
    
End Select

End Sub