Bonsoir pgz,
j'avais testé mon code (copié sur le tien) et il fonctionnait, il supprimait les formules de calcul comme demandé.
maintenant si ton code est plus aguerri, je pense que jerem1 devrait tout de meme le rendre plus efficace en adaptant cette variable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
nbl = .Range("a" & .Rows.Count).End(xlUp).Row
Bonne nuit