Private Sub UserForm_Initialize()
[COLOR="Red"]ChDir ("C:\Documents and Settings\Administrateur\Bureau\mails\")[/COLOR]
Me.Dossier = CurDir()
Me.ChoixFichier.Clear
nf = Dir("*.*") ' premier
Do While nf <> ""
Me.ChoixFichier.AddItem nf
nf = Dir ' suivant
Loop
[COLOR="red"] Me.FichierChoisi.Text = Sheets("RenommeFichier").[c17].Value[/COLOR]
End Sub