bonjour,
une proposition.
Sub sursalaire()
With Sheets("élements de salaires")
dl = .Cells(Rows.Count, "CJ").End(xlUp).Row
For i = 2 To dl
If .Cells(i, "CJ") <> "" Then
.Cells(i, "CJ").GoalSeek Goal:=.Cells(i, "CK"), ChangingCell:=.Cells(i, "AF")
End If
Next i
End With
End Sub