Sub RecapWord()
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = CreateObject("Word.Application")
If Dir("D:\Recap.doc", vbHidden) = "" Then
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWrd = appWrd.Documents.Add
docWrd.SaveAs "D:\Recap.doc"
End If
If Dir("D:\Recap.doc", vbHidden) <> "" Then
appWrd.Visible = True
Set DocWord = appWrd.Documents. _
Open("D:\Recap.doc", ReadOnly:=True)
End If
appWrd.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
Dim numLigneVide As Integer
Worksheets("Gestion Missions").Activate
numLigneVide = ActiveSheet.Columns(7).Find("").Row
Range("A1:Q10").Copy
appWrd.Selection.Paste
DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow
Application.CutCopyMode = False
Worksheets("Gestion ATE").Activate
numLigneVide = ActiveSheet.Columns(8).Find("").Row
Range("A2:P10").Copy
appWrd.Selection.Paste
Application.CutCopyMode = False
End Sub