Merci Jean-Marie, je me prenais les pieds dans l’tapis, je ne suis pas très à l’aise avec les formules excel
Maintenant ça marche
Sub colO()
'if (AV4 > 0, range("AO4").offset(AV4, -36) - range("E4"), "")
'AV=48
'AO=41
'--------installe un compteur en A1---------
c = Range("E4", Range("E4").End(xlDown)).Count
d = Cells(1, 1) - 4
For R = 4 To d
If Cells(R, 48) > 0 Then
Cells(R, 51) = Cells(R, 41).Offset(R, -37) - Cells(R, 5)
End If
Next
End Sub