Re-,
Bon déjà, ta formule peut-être écrite différemment :
=H4+Lundi!IU7-SI(A4<>Lundi!E7;Lundi!IV7
Puisque tu utilises IU7 de la feuille "lundi", quelle que soit la valeur de A4, et que tu lui soustrais IV7 dans certains cas seulement.
En relisant tes posts, je vois que j'étais allé un peu vite.
Je te propose la correction suivante :
Sub Saupin()
N! = 12
With Sheets("Lundi")
For i! = 0 To N - 1
ActiveCell.Offset(i, 0) = [H4] + .[IU7].Offset(i, 0)
If ActiveSheet.[A4] <> .[E7].Offset(i, 0) Then
ActiveCell.Offset(i, 0) = ActiveCell.Offset(i, 0) - .[IV7].Offset(i, 0)
End If
Next i
End With
End Sub
La procédure effectue écrit sur la feuille active, en partant de la cellule active, pendant N lignes.
Si tu veux partir d'une cellule en particulier (indépendante de ta cellule active), remplace ActiveCell par [X8] ou toute adresse utile
Cordialement,
Rai