Bonsoir,
une proposition
Private Sub Feuil_Histo_Click()
Set wsh = Sheets("Histo")
Set wsd = Sheets("Données hebdo")
For i = 0 To 1
wsh.Range("F4:J21").Offset(0, i * 7).Copy wsh.Range("E4").Offset(0, i * 7) 'on glisse les données d'une colonne vers la gauche
wsd.Range("K5:K21").Offset(0, i * 8).Copy wsh.Range("J5").Offset(0, i * 7) 'on copie les données de la feuille données hebdo
wsh.Range("F5:F21").Copy
wsh.Range("J5:J21").Offset(0, i * 7).PasteSpecial Paste:=xlPasteFormats 'on adapte le format de la colonne
s = wsd.Range("E2").Offset(0, 1) 'on récupère le titre de la semaine
s = Mid(s, InStr(s, " - ") + 3)
wsh.Range("J4").Offset(0, i * 7) = s 'on place le titre en en-tête de colonne
Next i
End Sub