Salut
Avant de supprimer les lignes, pour supprimer les colonnes =0 en ligne 82 :
For x = Range("IV82").End(xlToLeft).Column To 1 Step -1
If Cells(82, x)=0 Then Columns(x).Delete
Next
pour éviter les demandes de mise à jour, remplace les formules par leurs valeurs
Sheets("VHR A et D").Cells.Copy
Sheets("VHR A et D").Cells.PasteSpecial (xlPasteValues)
A+