Procédure trop longue - Optimisation du code

Bonjour,

Je rencontre un problème de procédure trop longue qui ne peut se lancer depuis ma macro (le nombre de caractère doit être trop important). J'ai donc essayé dans un premier temps de la découper et de faire appel à des commandes type call mais sans succès... donc finalement j'aimerai bien essayé d'optimiser le code histoire de réduire tout ça

Voici le code en question (enfin un bout, la suite n'est qu'une répétition de valeurs cibles):

Range("Q122").GoalSeek Goal:=0, ChangingCell:=Range("Q123")

Range("R122").GoalSeek Goal:=0, ChangingCell:=Range("R123")

Range("S122").GoalSeek Goal:=0, ChangingCell:=Range("S123")

Range("T122").GoalSeek Goal:=0, ChangingCell:=Range("T123")

Range("U122").GoalSeek Goal:=0, ChangingCell:=Range("U123")

Range("V122").GoalSeek Goal:=0, ChangingCell:=Range("V123")

Range("W122").GoalSeek Goal:=0, ChangingCell:=Range("W123")

Range("X122").GoalSeek Goal:=0, ChangingCell:=Range("X123")

Range("Y122").GoalSeek Goal:=0, ChangingCell:=Range("Y123")

Si quelqu'un à une petite idée histoire de réduire cela ça me dépannerai bien

Merci beaucoup !

Bonjour,

A tester

Option Explicit
Public Sub test()
Dim lRow As Integer, i As Integer

    Application.ScreenUpdating = False

    lRow = 122
    For i = 17 To 25
        Cells(lRow, i).GoalSeek Goal:=0, ChangingCell:=Cells(lRow + 1, i)
    Next

End Sub

Super merci beaucoup Jean-Eric, ça marche du tonnerre !

Bonne journée