Sub Cible()
Dim MaVal
'
' Cible Macro
' Macro enregistrée le 24/02/2009 par iharchine
'
MaVal = "X"
Do While Not IsNumeric(MaVal)
MaVal = InputBox("Valeur à atteindre ?", "UNE VALEUR...")
If MaVal = "" Then Exit Do
Loop
' Touche de raccourci du clavier: Ctrl+w
'
ActiveCell.GoalSeek Goal:=[COLOR=blue][B]MaVal[/B][/COLOR], ChangingCell:=ActiveCell.Offset(0, -45). _
Range("A1")
End Sub