Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("numdevis").Range _
.InsertBefore TextBox4
.Bookmarks("usine").Range _
.InsertBefore ComboBox11
.Bookmarks("nom").Range _
.InsertBefore ComboBox10
.Bookmarks("titre").Range _
.InsertBefore TextBox2
.Bookmarks("lieu1").Range _
.InsertBefore ComboBox4
.Bookmarks("lieu2").Range _
.InsertBefore ComboBox5
.Bookmarks("lieu3").Range _
.InsertBefore ComboBox8
Application.Dialogs(xlDialogSaveAs).Show
End With
End Sub