Sub CopieColle()
'De I vers J
Range("I11:I85").Copy
Range("J11:J85").PasteSpecial xlPasteValues, xlNone, False, False
'De O vers P
Range("O11:O85").Copy
Range("P11
85").PasteSpecial xlPasteValues, xlNone, False, False
'De U vers V
Range("U11:U85").Copy
Range("V11:V85").PasteSpecial xlPasteValues, xlNone, False, False
'De Z vers AA
Range("Z11:Z85").Copy
Range("AA11:AA85").PasteSpecial xlPasteValues, xlNone, False, False
Application.CutCopyMode = False
End Sub