Le problème vient de la je pense : .CurrentRegion.Select
Dim WordApp As Object
Dim WordDoc As Object
Dim TBL As Integer
NbMOIS_AOPER = Sheets("AOPER").Range("L" & Rows.Count).End(xlUp).Row
If Sheets("AOPER").Range("L1").Value = "" Then
Exit Sub
Else
Set WordApp = CreateObject("word.Application")
Set WordDoc = WordApp.Documents.Open("C:\Users\benoi\Desktop\AOPER2.doc")
WordApp.Visible = False
For TBL = 1 To NbMOIS_AOPER
If TBL > 1 And TBL < NbMOIS_AOPER Then
Sheets("AOPER").Range("A1").CurrentRegion.Select
Selection.Delete Shift:=xlUp
Sheets("AOPER").Range("A1:H1").Delete
End If
With Worksheets("AOPER"): Set Mois = .Range("L" & TBL): End With
Sheets("AOPER").Range("A1").CurrentRegion.Select
With Worksheets("AOPER"): Set Plage = Selection: End With
With WordDoc
Mois.Copy
.Bookmarks("MOIS_" & TBL).Range.PasteExcelTable False, False, False
Plage.Copy
.Bookmarks("TABLEAU_" & TBL).Range.PasteExcelTable False, False, False
End With
Next TBL
End If
NOM_SAVE = "AOPER" & " " & Sheets("AOPER").Range("B2").Value & " " & Sheets("AOPER").Range("C2").Value
WordApp.ActiveDocument.SaveAs "C:\Users\benoi\Desktop\" & NOM_SAVE & ".doc"
WordDoc.Close True
WordApp.Quit