affichage message si ....

bonjour a tous

voici un pb a mon avis simple mais je ne vois pas la solus (pourtant j'ai mis mes lunettes)

je voudrais que si la valeur d'une cellule dans la plage p45000 est egale a soit : 3;4;9;11;12;13;14;15;16;17;18 alors msgbox "papier" sinon si egale a 1;5;6;7;8;10;21 alors msgbox "informatique" 2 et 19 étant valeur interdite de saisie dans cette plage

en fait j'ai fait :
If Range("p4").Value = "3" Or Range("p4").Value = "4" or ......Then
MsgBox ("papier")
Else
End If

et l'autre message pour les autres valeurs...
comme je suis grand debutant je suis sur que l'on peut faire plus court et plus simple

d'avance merci
a demain
rem$