Sub MAJ()
Dim Col&
Col = [MATCH('Suivi hebdommadaire'!b3&'Suivi hebdommadaire'!b2,Récap!1:1&Récap!2:2,0)]
Range(Sheets("Récap").Cells(4, Col), Sheets("Récap").Cells(Rows.Count, Col + 1)).ClearContents
With Sheets("Suivi hebdommadaire")
.Range("b6:c" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy
Sheets("Récap").Cells(4, Col).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub