Bonjour
Je cherche à réaliser les commande ci-dessous par une boucle

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
    Range("G10").GoalSeek Goal:=0, ChangingCell:=Range("H10")
    Range("G11").GoalSeek Goal:=0, ChangingCell:=Range("H11")
    Range("G12").GoalSeek Goal:=0, ChangingCell:=Range("H12")
    ....................................................................................
    ....................................................................................
    ....................................................................................
    Range("G127").GoalSeek Goal:=0, ChangingCell:=Range("H127")
Cordialement