Sub ValeurCible()
Dim rg As Range, c As Range
Set rg = Sheets(1).Range("A7:A8") 'Plage contenant les étiquettes (colonne A) ' ADAPTER
For Each c In rg ' Pour tout les cellules de la plage
'Valeur cible de 0 dans la colonne H (c.offset(0,7)) en changeant la cellule de la colonne G
c.Offset(0, 7).GoalSeek Goal:=0, changingcell:=c.Offset(0, 6)
Next c
End Sub