Merci à vous 2 pour vos réponses,
Je vais m'essayer aux 2 solutions, même si Power Query me semble devoir nécessiter quand même beaucoup de manipulations pour arriver à ce que je veux. Mais cela vaut la peine que je le découvre.
en VBA, un code comme devrait fonctionner, non ?
Public Wbk As Workbook, Sht As Worksheet
Sub Ouvre()
Dim wb As Workbook
Set wb = Workbooks.Open("PC_Cherbourg.xls")
End Sub
Sub Maj_PC_Cherbourg()
'
' Maj_PC_Cherbourg Macro
'
'
Windows("PC Cherbourg.xlsx").Activate
Range("B6:C15").Select
Selection.Copy
Windows("Statistiques des H?tels - Novembre 2018 3?me d?cade.xlsm").Activate
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("PC Cherbourg.xlsx").Activate
Range("B17:C26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Statistiques des H?tels - Novembre 2018 3?me d?cade.xlsm").Activate
Range("B15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
etc...