Private Sub CommandButton1_Click()
Dim chemin
chemin = [COLOR="Red"]"C:\Users\Bruno\Documents\"[/COLOR] & Feuil1.[i3] & ".xls"
Feuil1.Copy
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=chemin
Application.DisplayAlerts = True
End Sub