Salut jonathan
Voici la seul methode que j'ai trouver :
dim m_nb as variant
dim m_resu as integer
m_nb=""
do until m_nb="fin"
m_nb=inputbox("ENTRER UN NOMBRE OU FIN POUR QUITTER")
if m_nb<>"fin" then
m_resu = m_nb mod 2
select case m_resu
case 0
msgbox("Le nombre : " & m_nb & " est un nombre PAIR")
case 1
msgbox("Le nombre : " & m_nb & " est un nombre IMPAIR")
end select
end if
loop
et voili voila
A++ et bon courage pour tes études... et Le monde merveilleux de VBA
Wilfried