Re,
Fabrice, sans ton code je ne peux dire avec exactitude ce qui t'arrive.
Pour ce qui est de ta question,
en rajoutant une listbox(c 'estc e que tu veux ?)
à mettre dans l'évènement initialize de ton USF,
Private Sub UserForm_Initialize()
dim T(),I&,Nb&
redim T(1 to worksheets.count,1)
for i=1 to worksheets.count
t(i,0)=worksheets(i).name
t(i,1)=nbrpages(worksheets(i))
nb=nb+t(i,1)
next i
with lenomdelalistbox ' à adpater
.columncount=2
.list=t
.additem "Nombre de pages dans classeur" & nb
end with
end sub
A+++