Option Explicit
Sub etape1()
' Etape 1
'Ouvre le tableau excel
ChDir "C:\Users\martinigi\Desktop\MG bordereau"
Workbooks.Open Filename:= _
"C:\Users\martinigi\Desktop\MG bordereau\EXport calcul par ligne ind 17.XLS"
Range("D9").Select
'Copie les zones
Windows("Bordereau interieur.xls").Activate
Sheets("Tableau de bord").Feuil2.Range("C4").Copy
Windows("EXport calcul par ligne ind 17.XLS"). _
Range("B2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Bordereau interieur.xls").Activate
If Sheets("Export").Range("C5") <> "" Then
Sheets("Export").Range("C5").Copy
Windows("EXport calcul par ligne ind 17.XLS").Activate
ActiveWindow.WindowState = xlMaximized
Range("B3").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
'Copie les données (action de la macro présente sur la feuille)
Windows("EXport calcul par ligne ind 17.XLS").Activate
Sheets("A").Cells.ClearContents
Windows("Bordereau interieur").Activate
Sheets("Export").Range("B21").Copy
Windows("EXport calcul par ligne ind 17.XLS").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("A").Range("A1").Paste
Sheets("Feuil2").Range("C10").Select
Application.CutCopyMode = False
ActiveSheet.PivotTables("Tableau croisé dynamique2").RefreshTable
Windows("Bordereau interieur").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Tableau de bord").Select
End Sub