Bonjour Didier, bonjour le forum
je te propose une solution.
Cordialement.
Sub efface_test()
Application.ScreenUpdating = False
Calc = Application.Calculation
Application.Calculation = xlCalculationManual
entete = "D, J, M, P, S, V, Y, AB, AE, AH, AK," & _
"AN, AQ, AT, AW, AZ, AC, BC...