Automatiser valeur cible

Bonjour à tous,

Est ce que vous pouvez m'aider à simplifier cette code SVP,

Sub Bouton91_Cliquer()

Range("AN10").Select
Range("AN10").GoalSeek Goal:=Range("AS10"), ChangingCell:=Range("K10")
Range("AN12").Select
Range("AN12").GoalSeek Goal:=Range("AS12"), ChangingCell:=Range("K12")
Range("AN14").Select
Range("AN14").GoalSeek Goal:=Range("AS14"), ChangingCell:=Range("K14")
Range("AN15").Select
Range("AN15").GoalSeek Goal:=Range("AS15"), ChangingCell:=Range("K15")
Range("AN16").Select
Range("AN16").GoalSeek Goal:=Range("AS16"), ChangingCell:=Range("K16")
Range("AN17").Select
Range("AN17").GoalSeek Goal:=Range("AS17"), ChangingCell:=Range("K17")
Range("AN22").Select
Range("AN22").GoalSeek Goal:=Range("AS22"), ChangingCell:=Range("K22")
Range("AN23").Select
Range("AN23").GoalSeek Goal:=Range("AS23"), ChangingCell:=Range("K23")

End Sub

Merci pour votre collaboration

bonjour,

une proposition

Sub Bouton91_Cliquer()
    a = Array(10, 12, 14, 15, 16, 17, 22, 23) 'lignes sur lesquelles appliquer la valeur cible, faute d'un autre critère pour les identifier
    For i = 0 To UBound(a)
        Cells(a(i), "AN").GoalSeek goal:=Cells(a(i), "AS"), changingcell:=Cells(a(i), "K")
    Next i
End Sub

Merci beaucoup