If réponse = vbOK Then
Application.DisplayAlerts = False
Range("B55:B" & i).Copy
Workbooks.Add
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
Application.Quit
ChDir "C:\Documents and Settings\" & Environ("UserName") & "\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & Environ("UserName") & "\Bureau\EvalXLS.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.CutCopyMode = False