Bonsoir,

Je n'arrive pas à effacer les valeurs d'une plage de cellules sans supprimer également la mise en forme (couleur, bordures) des cellules mais aussi les listes déroulantes..

Ci joint le code, rudimentaire il est vrai !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Worksheets("Prévisionnel").Activate
Worksheets("Prévisionnel").Range("I2:K46").Select
Worksheets("Prévisionnel").Range("I2:K46").clear
Merci pour votre aide