1234 Worksheets("Prévisionnel").Activate Worksheets("Prévisionnel").Range("I2:K46").Select Worksheets("Prévisionnel").Range("I2:K46").clear