bonjour,
j ai ce code qui fonctionne tres bien mais j ai plusieurs range a nettoyer une bonne dizaine et j ai pas tres envie de taper
ce code avec chaque range differente ....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim b as range 
For each b in activesheet.range ("AA13:AA52")
If not b.hasformula then b.clearcontents
Next b

merci