Oulala Oulala Oulala Warning Danger Cancel Attention
Tu remplaces des formules par des valeurs en dur, et tu balayes toutes les colonnes c'est extrêmement bizarre et dangereux!!!
Je prend comme exemple ta colonne J:
J3 = SI(G3<>0;(I3/E3);"")
Il suffit de remplacer cela par:
J3 =SI(G3<>0;(I3/E3)*100;"")
Et ensuite appliquer ton format personnalisé!!!
Si tu veux absolument le faire par programmation
Sub nettoyage()
Dim maFeuille As Worksheet: Set maFeuille = ThisWorkbook.Sheets("traitement date")
For Each cellule In maFeuille.Range("J2:J19")
cellule.FormulaR1C1 = "=IF(RC[-3]<>0,(RC[-1]/RC[-5])*100," & """""" & ")"
cellule.NumberFormat = "0.00"
Next cellule
End Sub