franckaz
Nouveau membre
bonjour
Je viens de créer une macro sous excel /VBA.
Je n'y connais pas grand chose mais j'étais content de moi car ça marchait.
Le but était de faire s'exécuter "outils /valeur cible" sur plusieurs cellules en automatique en lui faisant prendre des valeurs cibles différentes alors que normalement on est obligé de lui un nombre (on ne peux pas selectionner une cellule de la page).
Bref ça marche mais cependant dès que je veux protéger la feuille ça ne marche plus ça me met ' erreur d'exécution 1004"...l'un d'entre vous sait-il pourquoi?
voici la macro :
Sub rachatsbruts()
'
' rachatsbruts Macro
' Macro enregistrée le 31/07/2007 par Franck Azzala
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("J9").Select
Range("J9").GoalSeek Goal:=Range("K9"), ChangingCell:=Range("F9")
Range("J10").Select
Range("J10").GoalSeek Goal:=Range("K10"), ChangingCell:=Range("F10")
Range("J11").Select
Range("J11").GoalSeek Goal:=Range("K11"), ChangingCell:=Range("F11")
Range("J12").Select
Range("J12").GoalSeek Goal:=Range("K12"), ChangingCell:=Range("F12")
Range("J13").Select
Range("J13").GoalSeek Goal:=Range("K13"), ChangingCell:=Range("F13")
Range("J14").Select
Range("J14").GoalSeek Goal:=Range("K14"), ChangingCell:=Range("F14")
Range("J15").Select
Range("J15").GoalSeek Goal:=Range("K15"), ChangingCell:=Range("F15")
Range("J16").Select
Range("J16").GoalSeek Goal:=Range("K16"), ChangingCell:=Range("F16")
Range("J17").Select
Range("J17").GoalSeek Goal:=Range("K17"), ChangingCell:=Range("F17")
Range("J18").Select
Range("J18").GoalSeek Goal:=Range("K18"), ChangingCell:=Range("F18")
Range("J19").Select
Range("J19").GoalSeek Goal:=Range("K19"), ChangingCell:=Range("F19")
Range("J20").Select
Range("J20").GoalSeek Goal:=Range("K20"), ChangingCell:=Range("F20")
Range("J21").Select
Range("J21").GoalSeek Goal:=Range("K21"), ChangingCell:=Range("F21")
Range("J22").Select
Range("J22").GoalSeek Goal:=Range("K22"), ChangingCell:=Range("F22")
Range("J23").Select
Range("J23").GoalSeek Goal:=Range("K23"), ChangingCell:=Range("F23")
Range("J24").Select
Range("J24").GoalSeek Goal:=Range("K24"), ChangingCell:=Range("F24")
Range("J25").Select
Range("J25").GoalSeek Goal:=Range("K25"), ChangingCell:=Range("F25")
Range("J26").Select
Range("J26").GoalSeek Goal:=Range("K26"), ChangingCell:=Range("F26")
Range("J27").Select
Range("J27").GoalSeek Goal:=Range("K27"), ChangingCell:=Range("F27")
Range("J28").Select
Range("J28").GoalSeek Goal:=Range("K28"), ChangingCell:=Range("F28")
Range("J29").Select
Range("J29").GoalSeek Goal:=Range("K29"), ChangingCell:=Range("F29")
Range("J30").Select
Range("J30").GoalSeek Goal:=Range("K30"), ChangingCell:=Range("F30")
Range("J31").Select
Range("J31").GoalSeek Goal:=Range("K31"), ChangingCell:=Range("F31")
Range("J32").Select
Range("J32").GoalSeek Goal:=Range("K32"), ChangingCell:=Range("F32")
Range("J33").Select
Range("J33").GoalSeek Goal:=Range("K33"), ChangingCell:=Range("F33")
Range("J34").Select
Range("J34").GoalSeek Goal:=Range("K34"), ChangingCell:=Range("F34")
Range("J35").Select
Range("J35").GoalSeek Goal:=Range("K35"), ChangingCell:=Range("F35")
Range("J36").Select
Range("J36").GoalSeek Goal:=Range("K36"), ChangingCell:=Range("F36")
Range("J37").Select
Range("J37").GoalSeek Goal:=Range("K37"), ChangingCell:=Range("F37")
Range("J38").Select
Range("J38").GoalSeek Goal:=Range("K38"), ChangingCell:=Range("F38")
Range("J39").Select
Range("J39").GoalSeek Goal:=Range("K39"), ChangingCell:=Range("F39")
Range("J40").Select
Range("J40").GoalSeek Goal:=Range("K40"), ChangingCell:=Range("F40")
Range("J41").Select
Range("J41").GoalSeek Goal:=Range("K41"), ChangingCell:=Range("F41")
Range("J42").Select
Range("J42").GoalSeek Goal:=Range("K42"), ChangingCell:=Range("F42")
Range("J43").Select
Range("J43").GoalSeek Goal:=Range("K43"), ChangingCell:=Range("F43")
Range("J44").Select
Range("J44").GoalSeek Goal:=Range("K44"), ChangingCell:=Range("F44")
Range("J45").Select
Range("J45").GoalSeek Goal:=Range("K45"), ChangingCell:=Range("F45")
Range("J46").Select
Range("J46").GoalSeek Goal:=Range("K46"), ChangingCell:=Range("F46")
Range("J47").Select
Range("J47").GoalSeek Goal:=Range("K47"), ChangingCell:=Range("F47")
Range("J48").Select
Range("J48").GoalSeek Goal:=Range("K48"), ChangingCell:=Range("F48")
Range("J49").Select
Range("J49").GoalSeek Goal:=Range("K49"), ChangingCell:=Range("F49")
Range("J50").Select
Range("J50").GoalSeek Goal:=Range("K50"), ChangingCell:=Range("F50")
Range("J51").Select
Range("J51").GoalSeek Goal:=Range("K51"), ChangingCell:=Range("F51")
Range("J52").Select
Range("J52").GoalSeek Goal:=Range("K52"), ChangingCell:=Range("F52")
Range("J53").Select
Range("J53").GoalSeek Goal:=Range("K53"), ChangingCell:=Range("F53")
Range("J54").Select
Range("J54").GoalSeek Goal:=Range("K54"), ChangingCell:=Range("F54")
Range("J55").Select
Range("J55").GoalSeek Goal:=Range("K55"), ChangingCell:=Range("F55")
Range("J56").Select
Range("J56").GoalSeek Goal:=Range("K56"), ChangingCell:=Range("F56")
Range("J57").Select
Range("J57").GoalSeek Goal:=Range("K57"), ChangingCell:=Range("F57")
Range("J58").Select
Range("J58").GoalSeek Goal:=Range("K58"), ChangingCell:=Range("F58")
Range("J59").Select
Range("J59").GoalSeek Goal:=Range("K59"), ChangingCell:=Range("F59")
Range("J60").Select
Range("J60").GoalSeek Goal:=Range("K60"), ChangingCell:=Range("F60")
Range("J61").Select
Range("J61").GoalSeek Goal:=Range("K61"), ChangingCell:=Range("F61")
Range("J62").Select
Range("J62").GoalSeek Goal:=Range("K62"), ChangingCell:=Range("F62")
Range("J63").Select
Range("J63").GoalSeek Goal:=Range("K63"), ChangingCell:=Range("F63")
Range("J64").Select
Range("J64").GoalSeek Goal:=Range("K64"), ChangingCell:=Range("F64")
Range("J65").Select
Range("J65").GoalSeek Goal:=Range("K65"), ChangingCell:=Range("F65")
Range("J66").Select
Range("J66").GoalSeek Goal:=Range("K66"), ChangingCell:=Range("F66")
Range("J67").Select
Range("J67").GoalSeek Goal:=Range("K67"), ChangingCell:=Range("F67")
Range("J68").Select
Range("J68").GoalSeek Goal:=Range("K68"), ChangingCell:=Range("F68")
Range("J69").Select
Range("J69").GoalSeek Goal:=Range("K69"), ChangingCell:=Range("F69")
Range("J70").Select
Range("J70").GoalSeek Goal:=Range("K70"), ChangingCell:=Range("F70")
Range("J71").Select
Range("J71").GoalSeek Goal:=Range("K71"), ChangingCell:=Range("F71")
Range("J72").Select
Range("J72").GoalSeek Goal:=Range("K72"), ChangingCell:=Range("F72")
Range("J73").Select
Range("J73").GoalSeek Goal:=Range("K73"), ChangingCell:=Range("F73")
Range("J74").Select
Range("J74").GoalSeek Goal:=Range("K74"), ChangingCell:=Range("F74")
Range("J75").Select
Range("J75").GoalSeek Goal:=Range("K75"), ChangingCell:=Range("F75")
Range("J76").Select
Range("J76").GoalSeek Goal:=Range("K76"), ChangingCell:=Range("F76")
Range("J77").Select
Range("J77").GoalSeek Goal:=Range("K77"), ChangingCell:=Range("F77")
Range("J78").Select
Range("J78").GoalSeek Goal:=Range("K78"), ChangingCell:=Range("F78")
Range("J79").Select
Range("J79").GoalSeek Goal:=Range("K79"), ChangingCell:=Range("F79")
Range("J80").Select
Range("J80").GoalSeek Goal:=Range("K80"), ChangingCell:=Range("F80")
Range("J81").Select
Range("J81").GoalSeek Goal:=Range("K81"), ChangingCell:=Range("F81")
Range("J82").Select
Range("J82").GoalSeek Goal:=Range("K82"), ChangingCell:=Range("F82")
Range("J83").Select
Range("J83").GoalSeek Goal:=Range("K83"), ChangingCell:=Range("F83")
Range("J84").Select
Range("J84").GoalSeek Goal:=Range("K84"), ChangingCell:=Range("F84")
Range("J85").Select
Range("J85").GoalSeek Goal:=Range("K85"), ChangingCell:=Range("F85")
Range("J86").Select
Range("J86").GoalSeek Goal:=Range("K86"), ChangingCell:=Range("F86")
Range("J87").Select
Range("J87").GoalSeek Goal:=Range("K87"), ChangingCell:=Range("F87")
Range("J88").Select
Range("J88").GoalSeek Goal:=Range("K88"), ChangingCell:=Range("F88")
Range("J89").Select
Range("J89").GoalSeek Goal:=Range("K89"), ChangingCell:=Range("F89")
Range("J90").Select
Range("J90").GoalSeek Goal:=Range("K90"), ChangingCell:=Range("F90")
Range("J91").Select
Range("J91").GoalSeek Goal:=Range("K91"), ChangingCell:=Range("F91")
Range("J92").Select
Range("J92").GoalSeek Goal:=Range("K92"), ChangingCell:=Range("F92")
Range("J93").Select
Range("J93").GoalSeek Goal:=Range("K93"), ChangingCell:=Range("F93")
Range("J94").Select
Range("J94").GoalSeek Goal:=Range("K94"), ChangingCell:=Range("F94")
Range("J95").Select
Range("J95").GoalSeek Goal:=Range("K95"), ChangingCell:=Range("F95")
Range("J96").Select
Range("J96").GoalSeek Goal:=Range("K96"), ChangingCell:=Range("F96")
Range("J97").Select
Range("J97").GoalSeek Goal:=Range("K97"), ChangingCell:=Range("F97")
Range("J98").Select
Range("J98").GoalSeek Goal:=Range("K98"), ChangingCell:=Range("F98")
Range("J99").Select
Range("J99").GoalSeek Goal:=Range("K99"), ChangingCell:=Range("F99")
Range("J100").Select
Range("J100").GoalSeek Goal:=Range("K100"), ChangingCell:=Range("F100")
Range("J101").Select
Range("J101").GoalSeek Goal:=Range("K101"), ChangingCell:=Range("F101")
Range("J102").Select
Range("J102").GoalSeek Goal:=Range("K102"), ChangingCell:=Range("F102")
Range("J103").Select
Range("J103").GoalSeek Goal:=Range("K103"), ChangingCell:=Range("F103")
Range("J104").Select
Range("J104").GoalSeek Goal:=Range("K104"), ChangingCell:=Range("F104")
Range("J105").Select
Range("J106").Select
Range("J106").GoalSeek Goal:=Range("K106"), ChangingCell:=Range("F106")
Range("J107").Select
Range("J107").GoalSeek Goal:=Range("K107"), ChangingCell:=Range("F107")
Range("J108").Select
Range("J108").GoalSeek Goal:=Range("K108"), ChangingCell:=Range("F108")
Range("J109").Select
Range("J109").GoalSeek Goal:=Range("K109"), ChangingCell:=Range("F109")
Range("J110").Select
Range("J110").GoalSeek Goal:=Range("K110"), ChangingCell:=Range("F110")
Range("J111").Select
Range("J111").GoalSeek Goal:=Range("K111"), ChangingCell:=Range("F111")
Range("J112").Select
Range("J112").GoalSeek Goal:=Range("K112"), ChangingCell:=Range("F112")
Range("J113").Select
Range("J113").GoalSeek Goal:=Range("K113"), ChangingCell:=Range("F113")
Range("J114").Select
Range("J114").GoalSeek Goal:=Range("K114"), ChangingCell:=Range("F114")
Range("J115").Select
Range("J115").GoalSeek Goal:=Range("K115"), ChangingCell:=Range("F115")
Range("J116").Select
Range("J116").GoalSeek Goal:=Range("K116"), ChangingCell:=Range("F116")
Range("J117").Select
Range("J117").GoalSeek Goal:=Range("K117"), ChangingCell:=Range("F117")
Range("J118").Select
Range("J118").GoalSeek Goal:=Range("K118"), ChangingCell:=Range("F118")
Range("J119").Select
Range("J119").GoalSeek Goal:=Range("K119"), ChangingCell:=Range("F119")
Range("J120").Select
Range("J120").GoalSeek Goal:=Range("K120"), ChangingCell:=Range("F120")
Range("J121").Select
Range("J121").GoalSeek Goal:=Range("K121"), ChangingCell:=Range("F121")
Range("J122").Select
Range("J122").GoalSeek Goal:=Range("K122"), ChangingCell:=Range("F122")
Range("J123").Select
Range("J123").GoalSeek Goal:=Range("K123"), ChangingCell:=Range("F123")
Range("J124").Select
Range("J124").GoalSeek Goal:=Range("K124"), ChangingCell:=Range("F124")
Range("J125").Select
Range("J125").GoalSeek Goal:=Range("K125"), ChangingCell:=Range("F125")
Range("J126").Select
Range("J126").GoalSeek Goal:=Range("K126"), ChangingCell:=Range("F126")
Range("J127").Select
Range("J127").GoalSeek Goal:=Range("K127"), ChangingCell:=Range("F127")
Range("J128").Select
Range("J128").GoalSeek Goal:=Range("K128"), ChangingCell:=Range("F128")
Range("J129").Select
Range("J129").GoalSeek Goal:=Range("K129"), ChangingCell:=Range("F129")
Range("J130").Select
Range("J130").GoalSeek Goal:=Range("K130"), ChangingCell:=Range("F130")
Range("J131").Select
Range("J131").GoalSeek Goal:=Range("K131"), ChangingCell:=Range("F131")
Range("J132").Select
Range("J132").GoalSeek Goal:=Range("K132"), ChangingCell:=Range("F132")
Range("J133").Select
Range("J133").GoalSeek Goal:=Range("K133"), ChangingCell:=Range("F133")
Range("J134").Select
Range("J134").GoalSeek Goal:=Range("K134"), ChangingCell:=Range("F134")
Range("J135").Select
Range("J135").GoalSeek Goal:=Range("K135"), ChangingCell:=Range("F135")
Range("J136").Select
Range("J136").GoalSeek Goal:=Range("K136"), ChangingCell:=Range("F136")
Range("J137").Select
Range("J137").GoalSeek Goal:=Range("K137"), ChangingCell:=Range("F137")
Range("J138").Select
Range("J138").GoalSeek Goal:=Range("K138"), ChangingCell:=Range("F138")
Range("J139").Select
Range("J139").GoalSeek Goal:=Range("K139"), ChangingCell:=Range("F139")
Range("J140").Select
Range("J140").GoalSeek Goal:=Range("K140"), ChangingCell:=Range("F140")
Range("J141").Select
Range("J141").GoalSeek Goal:=Range("K141"), ChangingCell:=Range("F141")
Range("J142").Select
Range("J142").GoalSeek Goal:=Range("K142"), ChangingCell:=Range("F142")
Range("J143").Select
Range("J143").GoalSeek Goal:=Range("K143"), ChangingCell:=Range("F143")
Range("J144").Select
Range("J144").GoalSeek Goal:=Range("K144"), ChangingCell:=Range("F144")
Range("J145").Select
Range("J145").GoalSeek Goal:=Range("K145"), ChangingCell:=Range("F145")
Range("J146").Select
Range("J146").GoalSeek Goal:=Range("K146"), ChangingCell:=Range("F146")
Range("J147").Select
Range("J147").GoalSeek Goal:=Range("K147"), ChangingCell:=Range("F147")
Range("J148").Select
Range("J148").GoalSeek Goal:=Range("K148"), ChangingCell:=Range("F148")
Range("J149").Select
Range("J149").GoalSeek Goal:=Range("K149"), ChangingCell:=Range("F149")
Range("J150").Select
Range("J150").GoalSeek Goal:=Range("K150"), ChangingCell:=Range("F150")
Range("J151").Select
Range("J151").GoalSeek Goal:=Range("K151"), ChangingCell:=Range("F151")
Range("J152").Select
Range("J152").GoalSeek Goal:=Range("K152"), ChangingCell:=Range("F152")
Range("J153").Select
Range("J153").GoalSeek Goal:=Range("K153"), ChangingCell:=Range("F153")
Range("J154").Select
Range("J154").GoalSeek Goal:=Range("K154"), ChangingCell:=Range("F154")
Range("J155").Select
Range("J155").GoalSeek Goal:=Range("K155"), ChangingCell:=Range("F155")
Range("J156").Select
Range("J156").GoalSeek Goal:=Range("K156"), ChangingCell:=Range("F156")
Range("J157").Select
Range("J157").GoalSeek Goal:=Range("K157"), ChangingCell:=Range("F157")
Range("J158").Select
Range("J158").GoalSeek Goal:=Range("K158"), ChangingCell:=Range("F158")
Range("J159").Select
Range("J159").GoalSeek Goal:=Range("K159"), ChangingCell:=Range("F159")
Range("J160").Select
Range("J160").GoalSeek Goal:=Range("K160"), ChangingCell:=Range("F160")
Range("J161").Select
Range("J161").GoalSeek Goal:=Range("K161"), ChangingCell:=Range("F161")
Range("J162").Select
Range("J162").GoalSeek Goal:=Range("K162"), ChangingCell:=Range("F162")
Range("J163").Select
Range("J163").GoalSeek Goal:=Range("K163"), ChangingCell:=Range("F163")
Range("J164").Select
Range("J164").GoalSeek Goal:=Range("K164"), ChangingCell:=Range("F164")
Range("J165").Select
Range("J165").GoalSeek Goal:=Range("K165"), ChangingCell:=Range("F165")
Range("J166").Select
Range("J166").GoalSeek Goal:=Range("K166"), ChangingCell:=Range("F166")
Range("J167").Select
Range("J167").GoalSeek Goal:=Range("K167"), ChangingCell:=Range("F167")
Range("J168").Select
Range("J168").GoalSeek Goal:=Range("K168"), ChangingCell:=Range("F168")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J170").Select
Range("J170").GoalSeek Goal:=Range("K170"), ChangingCell:=Range("F170")
Range("J171").Select
Range("J171").GoalSeek Goal:=Range("K171"), ChangingCell:=Range("F171")
Range("J172").Select
Range("J172").GoalSeek Goal:=Range("K172"), ChangingCell:=Range("F172")
Range("J173").Select
Range("J173").GoalSeek Goal:=Range("K173"), ChangingCell:=Range("F173")
Range("J174").Select
Range("J174").GoalSeek Goal:=Range("K174"), ChangingCell:=Range("F174")
Range("J175").Select
Range("J175").GoalSeek Goal:=Range("K175"), ChangingCell:=Range("F175")
Range("J176").Select
Range("J176").GoalSeek Goal:=Range("K176"), ChangingCell:=Range("F176")
Range("J177").Select
Range("J177").GoalSeek Goal:=Range("K177"), ChangingCell:=Range("F177")
Range("J178").Select
Range("J178").GoalSeek Goal:=Range("K178"), ChangingCell:=Range("F178")
Range("J179").Select
Range("J179").GoalSeek Goal:=Range("K179"), ChangingCell:=Range("F179")
Range("J180").Select
Range("J180").GoalSeek Goal:=Range("K180"), ChangingCell:=Range("F180")
Range("J181").Select
Range("J181").GoalSeek Goal:=Range("K181"), ChangingCell:=Range("F181")
Range("J182").Select
Range("J182").GoalSeek Goal:=Range("K182"), ChangingCell:=Range("F182")
Range("J183").Select
Range("J183").GoalSeek Goal:=Range("K183"), ChangingCell:=Range("F183")
Range("J184").Select
Range("J184").GoalSeek Goal:=Range("K184"), ChangingCell:=Range("F184")
Range("J185").Select
Range("J185").GoalSeek Goal:=Range("K185"), ChangingCell:=Range("F185")
Range("J186").Select
Range("J186").GoalSeek Goal:=Range("K186"), ChangingCell:=Range("F186")
Range("J187").Select
Range("J187").GoalSeek Goal:=Range("K187"), ChangingCell:=Range("F187")
Range("J188").Select
Range("J188").GoalSeek Goal:=Range("K188"), ChangingCell:=Range("F188")
Range("J189").Select
Range("J189").GoalSeek Goal:=Range("K189"), ChangingCell:=Range("F189")
Range("J190").Select
Range("J190").GoalSeek Goal:=Range("K190"), ChangingCell:=Range("F190")
Range("J191").Select
Range("J191").GoalSeek Goal:=Range("K191"), ChangingCell:=Range("F191")
Range("J192").Select
Range("J192").GoalSeek Goal:=Range("K192"), ChangingCell:=Range("F192")
Range("J193").Select
Range("J193").GoalSeek Goal:=Range("K193"), ChangingCell:=Range("F193")
Range("J194").Select
Range("J194").GoalSeek Goal:=Range("K194"), ChangingCell:=Range("F194")
Range("J195").Select
Range("J195").GoalSeek Goal:=Range("K195"), ChangingCell:=Range("F195")
Range("J196").Select
Range("J196").GoalSeek Goal:=Range("K196"), ChangingCell:=Range("F196")
Range("J197").Select
Range("J197").GoalSeek Goal:=Range("K197"), ChangingCell:=Range("F197")
Range("J198").Select
Range("J198").GoalSeek Goal:=Range("K198"), ChangingCell:=Range("F198")
Range("J199").Select
Range("J199").GoalSeek Goal:=Range("K199"), ChangingCell:=Range("F199")
Range("J200").Select
Range("J200").GoalSeek Goal:=Range("K200"), ChangingCell:=Range("F200")
Range("A7").Select
End Sub
----
Merci
Franck
Je viens de créer une macro sous excel /VBA.
Je n'y connais pas grand chose mais j'étais content de moi car ça marchait.
Le but était de faire s'exécuter "outils /valeur cible" sur plusieurs cellules en automatique en lui faisant prendre des valeurs cibles différentes alors que normalement on est obligé de lui un nombre (on ne peux pas selectionner une cellule de la page).
Bref ça marche mais cependant dès que je veux protéger la feuille ça ne marche plus ça me met ' erreur d'exécution 1004"...l'un d'entre vous sait-il pourquoi?
voici la macro :
Sub rachatsbruts()
'
' rachatsbruts Macro
' Macro enregistrée le 31/07/2007 par Franck Azzala
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("J9").Select
Range("J9").GoalSeek Goal:=Range("K9"), ChangingCell:=Range("F9")
Range("J10").Select
Range("J10").GoalSeek Goal:=Range("K10"), ChangingCell:=Range("F10")
Range("J11").Select
Range("J11").GoalSeek Goal:=Range("K11"), ChangingCell:=Range("F11")
Range("J12").Select
Range("J12").GoalSeek Goal:=Range("K12"), ChangingCell:=Range("F12")
Range("J13").Select
Range("J13").GoalSeek Goal:=Range("K13"), ChangingCell:=Range("F13")
Range("J14").Select
Range("J14").GoalSeek Goal:=Range("K14"), ChangingCell:=Range("F14")
Range("J15").Select
Range("J15").GoalSeek Goal:=Range("K15"), ChangingCell:=Range("F15")
Range("J16").Select
Range("J16").GoalSeek Goal:=Range("K16"), ChangingCell:=Range("F16")
Range("J17").Select
Range("J17").GoalSeek Goal:=Range("K17"), ChangingCell:=Range("F17")
Range("J18").Select
Range("J18").GoalSeek Goal:=Range("K18"), ChangingCell:=Range("F18")
Range("J19").Select
Range("J19").GoalSeek Goal:=Range("K19"), ChangingCell:=Range("F19")
Range("J20").Select
Range("J20").GoalSeek Goal:=Range("K20"), ChangingCell:=Range("F20")
Range("J21").Select
Range("J21").GoalSeek Goal:=Range("K21"), ChangingCell:=Range("F21")
Range("J22").Select
Range("J22").GoalSeek Goal:=Range("K22"), ChangingCell:=Range("F22")
Range("J23").Select
Range("J23").GoalSeek Goal:=Range("K23"), ChangingCell:=Range("F23")
Range("J24").Select
Range("J24").GoalSeek Goal:=Range("K24"), ChangingCell:=Range("F24")
Range("J25").Select
Range("J25").GoalSeek Goal:=Range("K25"), ChangingCell:=Range("F25")
Range("J26").Select
Range("J26").GoalSeek Goal:=Range("K26"), ChangingCell:=Range("F26")
Range("J27").Select
Range("J27").GoalSeek Goal:=Range("K27"), ChangingCell:=Range("F27")
Range("J28").Select
Range("J28").GoalSeek Goal:=Range("K28"), ChangingCell:=Range("F28")
Range("J29").Select
Range("J29").GoalSeek Goal:=Range("K29"), ChangingCell:=Range("F29")
Range("J30").Select
Range("J30").GoalSeek Goal:=Range("K30"), ChangingCell:=Range("F30")
Range("J31").Select
Range("J31").GoalSeek Goal:=Range("K31"), ChangingCell:=Range("F31")
Range("J32").Select
Range("J32").GoalSeek Goal:=Range("K32"), ChangingCell:=Range("F32")
Range("J33").Select
Range("J33").GoalSeek Goal:=Range("K33"), ChangingCell:=Range("F33")
Range("J34").Select
Range("J34").GoalSeek Goal:=Range("K34"), ChangingCell:=Range("F34")
Range("J35").Select
Range("J35").GoalSeek Goal:=Range("K35"), ChangingCell:=Range("F35")
Range("J36").Select
Range("J36").GoalSeek Goal:=Range("K36"), ChangingCell:=Range("F36")
Range("J37").Select
Range("J37").GoalSeek Goal:=Range("K37"), ChangingCell:=Range("F37")
Range("J38").Select
Range("J38").GoalSeek Goal:=Range("K38"), ChangingCell:=Range("F38")
Range("J39").Select
Range("J39").GoalSeek Goal:=Range("K39"), ChangingCell:=Range("F39")
Range("J40").Select
Range("J40").GoalSeek Goal:=Range("K40"), ChangingCell:=Range("F40")
Range("J41").Select
Range("J41").GoalSeek Goal:=Range("K41"), ChangingCell:=Range("F41")
Range("J42").Select
Range("J42").GoalSeek Goal:=Range("K42"), ChangingCell:=Range("F42")
Range("J43").Select
Range("J43").GoalSeek Goal:=Range("K43"), ChangingCell:=Range("F43")
Range("J44").Select
Range("J44").GoalSeek Goal:=Range("K44"), ChangingCell:=Range("F44")
Range("J45").Select
Range("J45").GoalSeek Goal:=Range("K45"), ChangingCell:=Range("F45")
Range("J46").Select
Range("J46").GoalSeek Goal:=Range("K46"), ChangingCell:=Range("F46")
Range("J47").Select
Range("J47").GoalSeek Goal:=Range("K47"), ChangingCell:=Range("F47")
Range("J48").Select
Range("J48").GoalSeek Goal:=Range("K48"), ChangingCell:=Range("F48")
Range("J49").Select
Range("J49").GoalSeek Goal:=Range("K49"), ChangingCell:=Range("F49")
Range("J50").Select
Range("J50").GoalSeek Goal:=Range("K50"), ChangingCell:=Range("F50")
Range("J51").Select
Range("J51").GoalSeek Goal:=Range("K51"), ChangingCell:=Range("F51")
Range("J52").Select
Range("J52").GoalSeek Goal:=Range("K52"), ChangingCell:=Range("F52")
Range("J53").Select
Range("J53").GoalSeek Goal:=Range("K53"), ChangingCell:=Range("F53")
Range("J54").Select
Range("J54").GoalSeek Goal:=Range("K54"), ChangingCell:=Range("F54")
Range("J55").Select
Range("J55").GoalSeek Goal:=Range("K55"), ChangingCell:=Range("F55")
Range("J56").Select
Range("J56").GoalSeek Goal:=Range("K56"), ChangingCell:=Range("F56")
Range("J57").Select
Range("J57").GoalSeek Goal:=Range("K57"), ChangingCell:=Range("F57")
Range("J58").Select
Range("J58").GoalSeek Goal:=Range("K58"), ChangingCell:=Range("F58")
Range("J59").Select
Range("J59").GoalSeek Goal:=Range("K59"), ChangingCell:=Range("F59")
Range("J60").Select
Range("J60").GoalSeek Goal:=Range("K60"), ChangingCell:=Range("F60")
Range("J61").Select
Range("J61").GoalSeek Goal:=Range("K61"), ChangingCell:=Range("F61")
Range("J62").Select
Range("J62").GoalSeek Goal:=Range("K62"), ChangingCell:=Range("F62")
Range("J63").Select
Range("J63").GoalSeek Goal:=Range("K63"), ChangingCell:=Range("F63")
Range("J64").Select
Range("J64").GoalSeek Goal:=Range("K64"), ChangingCell:=Range("F64")
Range("J65").Select
Range("J65").GoalSeek Goal:=Range("K65"), ChangingCell:=Range("F65")
Range("J66").Select
Range("J66").GoalSeek Goal:=Range("K66"), ChangingCell:=Range("F66")
Range("J67").Select
Range("J67").GoalSeek Goal:=Range("K67"), ChangingCell:=Range("F67")
Range("J68").Select
Range("J68").GoalSeek Goal:=Range("K68"), ChangingCell:=Range("F68")
Range("J69").Select
Range("J69").GoalSeek Goal:=Range("K69"), ChangingCell:=Range("F69")
Range("J70").Select
Range("J70").GoalSeek Goal:=Range("K70"), ChangingCell:=Range("F70")
Range("J71").Select
Range("J71").GoalSeek Goal:=Range("K71"), ChangingCell:=Range("F71")
Range("J72").Select
Range("J72").GoalSeek Goal:=Range("K72"), ChangingCell:=Range("F72")
Range("J73").Select
Range("J73").GoalSeek Goal:=Range("K73"), ChangingCell:=Range("F73")
Range("J74").Select
Range("J74").GoalSeek Goal:=Range("K74"), ChangingCell:=Range("F74")
Range("J75").Select
Range("J75").GoalSeek Goal:=Range("K75"), ChangingCell:=Range("F75")
Range("J76").Select
Range("J76").GoalSeek Goal:=Range("K76"), ChangingCell:=Range("F76")
Range("J77").Select
Range("J77").GoalSeek Goal:=Range("K77"), ChangingCell:=Range("F77")
Range("J78").Select
Range("J78").GoalSeek Goal:=Range("K78"), ChangingCell:=Range("F78")
Range("J79").Select
Range("J79").GoalSeek Goal:=Range("K79"), ChangingCell:=Range("F79")
Range("J80").Select
Range("J80").GoalSeek Goal:=Range("K80"), ChangingCell:=Range("F80")
Range("J81").Select
Range("J81").GoalSeek Goal:=Range("K81"), ChangingCell:=Range("F81")
Range("J82").Select
Range("J82").GoalSeek Goal:=Range("K82"), ChangingCell:=Range("F82")
Range("J83").Select
Range("J83").GoalSeek Goal:=Range("K83"), ChangingCell:=Range("F83")
Range("J84").Select
Range("J84").GoalSeek Goal:=Range("K84"), ChangingCell:=Range("F84")
Range("J85").Select
Range("J85").GoalSeek Goal:=Range("K85"), ChangingCell:=Range("F85")
Range("J86").Select
Range("J86").GoalSeek Goal:=Range("K86"), ChangingCell:=Range("F86")
Range("J87").Select
Range("J87").GoalSeek Goal:=Range("K87"), ChangingCell:=Range("F87")
Range("J88").Select
Range("J88").GoalSeek Goal:=Range("K88"), ChangingCell:=Range("F88")
Range("J89").Select
Range("J89").GoalSeek Goal:=Range("K89"), ChangingCell:=Range("F89")
Range("J90").Select
Range("J90").GoalSeek Goal:=Range("K90"), ChangingCell:=Range("F90")
Range("J91").Select
Range("J91").GoalSeek Goal:=Range("K91"), ChangingCell:=Range("F91")
Range("J92").Select
Range("J92").GoalSeek Goal:=Range("K92"), ChangingCell:=Range("F92")
Range("J93").Select
Range("J93").GoalSeek Goal:=Range("K93"), ChangingCell:=Range("F93")
Range("J94").Select
Range("J94").GoalSeek Goal:=Range("K94"), ChangingCell:=Range("F94")
Range("J95").Select
Range("J95").GoalSeek Goal:=Range("K95"), ChangingCell:=Range("F95")
Range("J96").Select
Range("J96").GoalSeek Goal:=Range("K96"), ChangingCell:=Range("F96")
Range("J97").Select
Range("J97").GoalSeek Goal:=Range("K97"), ChangingCell:=Range("F97")
Range("J98").Select
Range("J98").GoalSeek Goal:=Range("K98"), ChangingCell:=Range("F98")
Range("J99").Select
Range("J99").GoalSeek Goal:=Range("K99"), ChangingCell:=Range("F99")
Range("J100").Select
Range("J100").GoalSeek Goal:=Range("K100"), ChangingCell:=Range("F100")
Range("J101").Select
Range("J101").GoalSeek Goal:=Range("K101"), ChangingCell:=Range("F101")
Range("J102").Select
Range("J102").GoalSeek Goal:=Range("K102"), ChangingCell:=Range("F102")
Range("J103").Select
Range("J103").GoalSeek Goal:=Range("K103"), ChangingCell:=Range("F103")
Range("J104").Select
Range("J104").GoalSeek Goal:=Range("K104"), ChangingCell:=Range("F104")
Range("J105").Select
Range("J106").Select
Range("J106").GoalSeek Goal:=Range("K106"), ChangingCell:=Range("F106")
Range("J107").Select
Range("J107").GoalSeek Goal:=Range("K107"), ChangingCell:=Range("F107")
Range("J108").Select
Range("J108").GoalSeek Goal:=Range("K108"), ChangingCell:=Range("F108")
Range("J109").Select
Range("J109").GoalSeek Goal:=Range("K109"), ChangingCell:=Range("F109")
Range("J110").Select
Range("J110").GoalSeek Goal:=Range("K110"), ChangingCell:=Range("F110")
Range("J111").Select
Range("J111").GoalSeek Goal:=Range("K111"), ChangingCell:=Range("F111")
Range("J112").Select
Range("J112").GoalSeek Goal:=Range("K112"), ChangingCell:=Range("F112")
Range("J113").Select
Range("J113").GoalSeek Goal:=Range("K113"), ChangingCell:=Range("F113")
Range("J114").Select
Range("J114").GoalSeek Goal:=Range("K114"), ChangingCell:=Range("F114")
Range("J115").Select
Range("J115").GoalSeek Goal:=Range("K115"), ChangingCell:=Range("F115")
Range("J116").Select
Range("J116").GoalSeek Goal:=Range("K116"), ChangingCell:=Range("F116")
Range("J117").Select
Range("J117").GoalSeek Goal:=Range("K117"), ChangingCell:=Range("F117")
Range("J118").Select
Range("J118").GoalSeek Goal:=Range("K118"), ChangingCell:=Range("F118")
Range("J119").Select
Range("J119").GoalSeek Goal:=Range("K119"), ChangingCell:=Range("F119")
Range("J120").Select
Range("J120").GoalSeek Goal:=Range("K120"), ChangingCell:=Range("F120")
Range("J121").Select
Range("J121").GoalSeek Goal:=Range("K121"), ChangingCell:=Range("F121")
Range("J122").Select
Range("J122").GoalSeek Goal:=Range("K122"), ChangingCell:=Range("F122")
Range("J123").Select
Range("J123").GoalSeek Goal:=Range("K123"), ChangingCell:=Range("F123")
Range("J124").Select
Range("J124").GoalSeek Goal:=Range("K124"), ChangingCell:=Range("F124")
Range("J125").Select
Range("J125").GoalSeek Goal:=Range("K125"), ChangingCell:=Range("F125")
Range("J126").Select
Range("J126").GoalSeek Goal:=Range("K126"), ChangingCell:=Range("F126")
Range("J127").Select
Range("J127").GoalSeek Goal:=Range("K127"), ChangingCell:=Range("F127")
Range("J128").Select
Range("J128").GoalSeek Goal:=Range("K128"), ChangingCell:=Range("F128")
Range("J129").Select
Range("J129").GoalSeek Goal:=Range("K129"), ChangingCell:=Range("F129")
Range("J130").Select
Range("J130").GoalSeek Goal:=Range("K130"), ChangingCell:=Range("F130")
Range("J131").Select
Range("J131").GoalSeek Goal:=Range("K131"), ChangingCell:=Range("F131")
Range("J132").Select
Range("J132").GoalSeek Goal:=Range("K132"), ChangingCell:=Range("F132")
Range("J133").Select
Range("J133").GoalSeek Goal:=Range("K133"), ChangingCell:=Range("F133")
Range("J134").Select
Range("J134").GoalSeek Goal:=Range("K134"), ChangingCell:=Range("F134")
Range("J135").Select
Range("J135").GoalSeek Goal:=Range("K135"), ChangingCell:=Range("F135")
Range("J136").Select
Range("J136").GoalSeek Goal:=Range("K136"), ChangingCell:=Range("F136")
Range("J137").Select
Range("J137").GoalSeek Goal:=Range("K137"), ChangingCell:=Range("F137")
Range("J138").Select
Range("J138").GoalSeek Goal:=Range("K138"), ChangingCell:=Range("F138")
Range("J139").Select
Range("J139").GoalSeek Goal:=Range("K139"), ChangingCell:=Range("F139")
Range("J140").Select
Range("J140").GoalSeek Goal:=Range("K140"), ChangingCell:=Range("F140")
Range("J141").Select
Range("J141").GoalSeek Goal:=Range("K141"), ChangingCell:=Range("F141")
Range("J142").Select
Range("J142").GoalSeek Goal:=Range("K142"), ChangingCell:=Range("F142")
Range("J143").Select
Range("J143").GoalSeek Goal:=Range("K143"), ChangingCell:=Range("F143")
Range("J144").Select
Range("J144").GoalSeek Goal:=Range("K144"), ChangingCell:=Range("F144")
Range("J145").Select
Range("J145").GoalSeek Goal:=Range("K145"), ChangingCell:=Range("F145")
Range("J146").Select
Range("J146").GoalSeek Goal:=Range("K146"), ChangingCell:=Range("F146")
Range("J147").Select
Range("J147").GoalSeek Goal:=Range("K147"), ChangingCell:=Range("F147")
Range("J148").Select
Range("J148").GoalSeek Goal:=Range("K148"), ChangingCell:=Range("F148")
Range("J149").Select
Range("J149").GoalSeek Goal:=Range("K149"), ChangingCell:=Range("F149")
Range("J150").Select
Range("J150").GoalSeek Goal:=Range("K150"), ChangingCell:=Range("F150")
Range("J151").Select
Range("J151").GoalSeek Goal:=Range("K151"), ChangingCell:=Range("F151")
Range("J152").Select
Range("J152").GoalSeek Goal:=Range("K152"), ChangingCell:=Range("F152")
Range("J153").Select
Range("J153").GoalSeek Goal:=Range("K153"), ChangingCell:=Range("F153")
Range("J154").Select
Range("J154").GoalSeek Goal:=Range("K154"), ChangingCell:=Range("F154")
Range("J155").Select
Range("J155").GoalSeek Goal:=Range("K155"), ChangingCell:=Range("F155")
Range("J156").Select
Range("J156").GoalSeek Goal:=Range("K156"), ChangingCell:=Range("F156")
Range("J157").Select
Range("J157").GoalSeek Goal:=Range("K157"), ChangingCell:=Range("F157")
Range("J158").Select
Range("J158").GoalSeek Goal:=Range("K158"), ChangingCell:=Range("F158")
Range("J159").Select
Range("J159").GoalSeek Goal:=Range("K159"), ChangingCell:=Range("F159")
Range("J160").Select
Range("J160").GoalSeek Goal:=Range("K160"), ChangingCell:=Range("F160")
Range("J161").Select
Range("J161").GoalSeek Goal:=Range("K161"), ChangingCell:=Range("F161")
Range("J162").Select
Range("J162").GoalSeek Goal:=Range("K162"), ChangingCell:=Range("F162")
Range("J163").Select
Range("J163").GoalSeek Goal:=Range("K163"), ChangingCell:=Range("F163")
Range("J164").Select
Range("J164").GoalSeek Goal:=Range("K164"), ChangingCell:=Range("F164")
Range("J165").Select
Range("J165").GoalSeek Goal:=Range("K165"), ChangingCell:=Range("F165")
Range("J166").Select
Range("J166").GoalSeek Goal:=Range("K166"), ChangingCell:=Range("F166")
Range("J167").Select
Range("J167").GoalSeek Goal:=Range("K167"), ChangingCell:=Range("F167")
Range("J168").Select
Range("J168").GoalSeek Goal:=Range("K168"), ChangingCell:=Range("F168")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J169").Select
Range("J169").GoalSeek Goal:=Range("K169"), ChangingCell:=Range("F169")
Range("J170").Select
Range("J170").GoalSeek Goal:=Range("K170"), ChangingCell:=Range("F170")
Range("J171").Select
Range("J171").GoalSeek Goal:=Range("K171"), ChangingCell:=Range("F171")
Range("J172").Select
Range("J172").GoalSeek Goal:=Range("K172"), ChangingCell:=Range("F172")
Range("J173").Select
Range("J173").GoalSeek Goal:=Range("K173"), ChangingCell:=Range("F173")
Range("J174").Select
Range("J174").GoalSeek Goal:=Range("K174"), ChangingCell:=Range("F174")
Range("J175").Select
Range("J175").GoalSeek Goal:=Range("K175"), ChangingCell:=Range("F175")
Range("J176").Select
Range("J176").GoalSeek Goal:=Range("K176"), ChangingCell:=Range("F176")
Range("J177").Select
Range("J177").GoalSeek Goal:=Range("K177"), ChangingCell:=Range("F177")
Range("J178").Select
Range("J178").GoalSeek Goal:=Range("K178"), ChangingCell:=Range("F178")
Range("J179").Select
Range("J179").GoalSeek Goal:=Range("K179"), ChangingCell:=Range("F179")
Range("J180").Select
Range("J180").GoalSeek Goal:=Range("K180"), ChangingCell:=Range("F180")
Range("J181").Select
Range("J181").GoalSeek Goal:=Range("K181"), ChangingCell:=Range("F181")
Range("J182").Select
Range("J182").GoalSeek Goal:=Range("K182"), ChangingCell:=Range("F182")
Range("J183").Select
Range("J183").GoalSeek Goal:=Range("K183"), ChangingCell:=Range("F183")
Range("J184").Select
Range("J184").GoalSeek Goal:=Range("K184"), ChangingCell:=Range("F184")
Range("J185").Select
Range("J185").GoalSeek Goal:=Range("K185"), ChangingCell:=Range("F185")
Range("J186").Select
Range("J186").GoalSeek Goal:=Range("K186"), ChangingCell:=Range("F186")
Range("J187").Select
Range("J187").GoalSeek Goal:=Range("K187"), ChangingCell:=Range("F187")
Range("J188").Select
Range("J188").GoalSeek Goal:=Range("K188"), ChangingCell:=Range("F188")
Range("J189").Select
Range("J189").GoalSeek Goal:=Range("K189"), ChangingCell:=Range("F189")
Range("J190").Select
Range("J190").GoalSeek Goal:=Range("K190"), ChangingCell:=Range("F190")
Range("J191").Select
Range("J191").GoalSeek Goal:=Range("K191"), ChangingCell:=Range("F191")
Range("J192").Select
Range("J192").GoalSeek Goal:=Range("K192"), ChangingCell:=Range("F192")
Range("J193").Select
Range("J193").GoalSeek Goal:=Range("K193"), ChangingCell:=Range("F193")
Range("J194").Select
Range("J194").GoalSeek Goal:=Range("K194"), ChangingCell:=Range("F194")
Range("J195").Select
Range("J195").GoalSeek Goal:=Range("K195"), ChangingCell:=Range("F195")
Range("J196").Select
Range("J196").GoalSeek Goal:=Range("K196"), ChangingCell:=Range("F196")
Range("J197").Select
Range("J197").GoalSeek Goal:=Range("K197"), ChangingCell:=Range("F197")
Range("J198").Select
Range("J198").GoalSeek Goal:=Range("K198"), ChangingCell:=Range("F198")
Range("J199").Select
Range("J199").GoalSeek Goal:=Range("K199"), ChangingCell:=Range("F199")
Range("J200").Select
Range("J200").GoalSeek Goal:=Range("K200"), ChangingCell:=Range("F200")
Range("A7").Select
End Sub
----
Merci
Franck