Re : VB petit code
Si c'est cela, deux solutions :
Sub Essai()
'
For i = 14 To 20
'
Range("J" & i).GoalSeek Goal:=0, ChangingCell:=Range("I" & i)
Next i
End Sub
ou
Sub test()
Set plage = Range("J14:J20")
For Each cell In plage
a = cell.Address
Range(a).GoalSeek Goal:=0, ChangingCell:=Range(a).Offset(0, -1)
Next
End Sub