Sub MAJ()
'
' MAJ Macro (MAJ : Mise A Jour)
'
'
Dim a As Integer
If MsgBox("Etes-vous certain de vouloir mettre à jour les calculs ?", vbYesNo, "Demande de confirmation") = vbYes Then
Application.ScreenUpdating = False
Windows("Classeur1.xlsx").Activate
Sheets("Feuil4").Select
Columns("A:J").Select
Selection.Copy
Windows("Indicateur commandes.xlsx").Activate
Sheets("RESULTATS").Select
Range("AD1").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
End If
End Sub