Bonjour
Voila la macro que j'ai testée avec le peu de notions que je possède.
Merci
Sub EFFACER()
Range("B6", "C11").ClearContents
Range("F6", "F11").ClearContents
Range("L6", "M11").ClearContents
Range("G6", "H11").ClearContents
Range("K6", "K11").ClearContents
Range("L6", "M11").ClearContents
Range("P6", "P11").ClearContents
Range("Q6", "R11").ClearContents
Range("U6", "U11").ClearContents
Range("V6", "W11").ClearContents
Range("Z6", "Z11").ClearContents
Range("AA6", "AB11").ClearContents
Range("B17:B22").Value = Range("E17:E22").Value
End Sub