signet word + enregistrer sous

Private Sub BtnValider_Click()
    Const wdDialogSaveAs = &H54
    Dim dlg
    If ComboBox1.Value = "Devis vierge" Then
        Set wrdapp = CreateObject("Word.Application")
        wrdapp.Visible = True
        Set wrddoc = wrdapp.Documents.Open(ThisWorkbook.Path & "\MODELE.doc")
        With wrddoc
            .Bookmarks("titre").Range _
                    .InsertBefore ComboBox12
            .Bookmarks("usine").Range _
                    .InsertBefore ComboBox11
            .Bookmarks("nom").Range _
                    .InsertBefore ComboBox10
            .Bookmarks("numdevis").Range _
                    .InsertBefore TextBox2
            .Bookmarks("lieu1").Range _
                    .InsertBefore ComboBox4
            .Bookmarks("lieu2").Range _
                    .InsertBefore ComboBox5
            .Bookmarks("lieu3").Range _
                    .InsertBefore ComboBox8
            'Application.Dialogs(xlDialogSaveAs).Show
        End With
        With wrdapp
            Set dlg = .Application.Dialogs(wdDialogSaveAs)
            dlg.Show
        End With
        wrdapp.Quit
        Set wrdapp = Nothing
    End If
End Sub

Private Sub ComboBox1_Change()
    If ComboBox1.Value = "Intitule JME" Then
    ComboBox10.Value = "TATA"
    ComboBox12.Value = "TRAVAUX ATELIER"
    End If
End Sub

Private Sub BtnQuitter_Click()
Unload Me
End Sub