bonjour
j'ai considérablement avancé et vivement merci pour votre soutient
j'ai encore besoin de vous.
Sub cession()
Dim h As Integer
Dim nmbr_lign As Integer
h = Range("a1").End(xlDown).Row
Application.CountA (Range("A2:A" & h))
nmbr_lign = Application.CountA(Range("A2:A" & h))
Range("BX2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-69]=0,0,IF(RC[-69]="";"",0,MAX(0,(RC[-69]-RC[-9])/RC[-69])))"
Range("BX2:BX3").Select
selection.AutoFill Destination:=Range("BX2:BX" & nmbr_lign), Type:=xlFillDefault
Ma dernière ligne est à l'origine du bug.