Sub test()
With Sheets("Param")
End With
If ("A2") = ("D7") Then
MsgBox "OK 1"
ElseIf ("A3") = ("D7") Then
MsgBox "[B]C'est Juste[/B]"
ElseIf ("A4") = ("D7") Then
MsgBox "OK 2"
ElseIf ("A5") = ("D7") Then
MsgBox "OK 3"
ElseIf ("A6") = ("D7") Then
MsgBox "OK 4"
Else
Exit Sub
End If
End Sub