aud.Value = Sheets('historic').Range('B' & LCherche).Value
cad.Value = Sheets('historic').Range('C' & LCherche).Value
chf.Value = Sheets('historic').Range('D' & LCherche).Value
eur.Value = Sheets('historic').Range('E' & LCherche).Value
gbp.Value = Sheets('historic').Range('F' & LCherche).Value
jpy.Value = Sheets('historic').Range('G' & LCherche).Value
nzd.Value = Sheets('historic').Range('H' & LCherche).Value
usd.Value = Sheets('historic').Range('I' & LCherche).Value