Bonsoir Toinou,
Voici un petit exemple de code qui, une fois adapté, devrait répondre au problème posé.
=====================================================
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' La cellule B9 contient l'assertion : "B3 et D5" sont vides
' Quand on selectionne B9 on vérifie si la condition est remplie ou pas
' On affiche le message correspondant à la réalité
If Target.Address = "$B$9" Then
If Range("B3") = "" And Range("D5") = "" Then
MsgBox "Cette assertion est vraie"
Else
MsgBox "Cette assertion est fausse"
End If
End If
End Sub
=====================================================
En te souhaitant bon courage pour la suite ....
Omicron.