Analyse scénario Valeur cible + fonction si

Bonjour,

Je souhaiterais avoir de l'aide afin d'avoir une macro car mon fichier contient + de 5000 lignes pour faire un scénario valeur cible en fonction d'une condidtion

Voici les informations

- SI(CG3<=0;on fait le scénario valeur cible;AY3)

Données pour valeur cible

- Cellule à définir = CJ3

- Valeur à atteindre = AS3

- Cellule à modifier = CI3

Faire une boucle jusqu'à la dernière ligne

D'avance merci pour votre aide

bonjour,

une proposition

Sub aargh()
    Application.ScreenUpdating = False
    t = Timer
    For i = 3 To 5000
        If Cells(i, "CG") <= 0 Then
            Cells(i, "CJ").GoalSeek Goal:=Cells(i, "AS"), ChangingCell:=Cells(i, "CI")
        Else
            Cells(i, "CJ") = Cells(i, "AY")
        End If
    Next i
    MsgBox Timer - t
End Sub

merci beaucoup, ça fonctionne