Sub pmenager()
ligne = ActiveCell.Row
 Filename1 = InputBox("Please, type the date. ( Ex: 24April07 )", "Information Requested")
 Filename = "Worldbuttertrading " & Filename1 & ".xls"
 'MsgBox (Filename)
 'Workbooks.Open Filename:= _
        "G:\Dep._home\Trading\Belden\Butter\World butter trading\2007\Apr, 2007\" & Filename, UpdateLinks:=1
   Windows("Databasebutter.xls").Activate
    Cells(ligne, 1) = Filename1
    Cells(ligne, 2) = "='[" & Filename & "]Wordwide butter markets'!R86C8"
    Cells(ligne, 3) = "='[" & Filename & "]Wordwide butter markets'!R86C9"
    Cells(ligne, 4) = "=B" & ligne & "-C" & ligne
    Cells(ligne, 5) = "='[" & Filename & "]Wordwide butter markets'!R86C5"
    Cells(ligne, 6) = "='[" & Filename & "]Wordwide butter markets'!R86C6"
    Cells(ligne, 7) = "=E" & ligne & "-F" & ligne
    Cells(ligne, 8) = "='[" & Filename & "]Wordwide butter markets'!R86C2"
    Cells(ligne, 9) = "='[" & Filename & "]Wordwide butter markets'!R86C3"
    Cells(ligne, 10) = "=H" & ligne & "-I" & ligne
    Cells(ligne, 11) = "='[" & Filename & "]Wordwide butter markets'!R80C5"
    Cells(ligne, 12) = "='[" & Filename & "]Wordwide butter markets'!R80C6"
    Cells(ligne, 13) = "=K" & ligne & "-L" & ligne
    Cells(ligne, 14) = "='[" & Filename & "]Wordwide butter markets'!R80C2"
    Cells(ligne, 15) = "='[" & Filename & "]Wordwide butter markets'!R80C3"
    Cells(ligne, 16) = "=N" & ligne & "-O" & ligne
    
     Cells(ligne, 17) = "='[" & Filename & "]Wordwide butter markets'!R30C8"
    Cells(ligne, 18) = "='[" & Filename & "]Wordwide butter markets'!R30C9"
    Cells(ligne, 19) = "=Q" & ligne & "-R" & ligne
    Cells(ligne, 20) = "='[" & Filename & "]Wordwide butter markets'!R30C5"
    Cells(ligne, 21) = "='[" & Filename & "]Wordwide butter markets'!R30C6"
    Cells(ligne, 22) = "=T" & ligne & "-U" & ligne
    Cells(ligne, 23) = "='[" & Filename & "]Wordwide butter markets'!R30C2"
    Cells(ligne, 24) = "='[" & Filename & "]Wordwide butter markets'!R30C3"
    Cells(ligne, 25) = "=W" & ligne & "-X" & ligne
    Cells(ligne, 26) = "='[" & Filename & "]Wordwide butter markets'!R24C5"
    Cells(ligne, 27) = "='[" & Filename & "]Wordwide butter markets'!R24C6"
    Cells(ligne, 28) = "=Z" & ligne & "-AA" & ligne
    Cells(ligne, 29) = "='[" & Filename & "]Wordwide butter markets'!R24C2"
    Cells(ligne, 30) = "='[" & Filename & "]Wordwide butter markets'!R24C3"
    Cells(ligne, 31) = "=AC" & ligne & "-AD" & ligne
    
     Cells(ligne, 32) = "='[" & Filename & "]Wordwide butter markets'!R44C8"
    Cells(ligne, 33) = "='[" & Filename & "]Wordwide butter markets'!R44C9"
    Cells(ligne, 34) = "=AF" & ligne & "-AG" & ligne
    Cells(ligne, 35) = "='[" & Filename & "]Wordwide butter markets'!R44C5"
    Cells(ligne, 36) = "='[" & Filename & "]Wordwide butter markets'!R44C6"
    Cells(ligne, 37) = "=AI" & ligne & "-AJ" & ligne
    Cells(ligne, 38) = "='[" & Filename & "]Wordwide butter markets'!R44C2"
    Cells(ligne, 39) = "='[" & Filename & "]Wordwide butter markets'!R44C3"
    Cells(ligne, 40) = "=AL" & ligne & "-AM" & ligne
    Cells(ligne, 41) = "='[" & Filename & "]Wordwide butter markets'!R38C5"
    Cells(ligne, 42) = "='[" & Filename & "]Wordwide butter markets'!R38C6"
    Cells(ligne, 43) = "=AO" & ligne & "-AP" & ligne
    Cells(ligne, 44) = "='[" & Filename & "]Wordwide butter markets'!R38C2"
    Cells(ligne, 45) = "='[" & Filename & "]Wordwide butter markets'!R38C3"
    Cells(ligne, 46) = "=AR" & ligne & "-AS" & ligne
    ''''''''''
    
     Cells(ligne, 47) = "='[" & Filename & "]Wordwide butter markets'!R58C8"
    Cells(ligne, 48) = "='[" & Filename & "]Wordwide butter markets'!R58C9"
    Cells(ligne, 49) = "=AU" & ligne & "-AV" & ligne
    Cells(ligne, 50) = "='[" & Filename & "]Wordwide butter markets'!R58C5"
    Cells(ligne, 51) = "='[" & Filename & "]Wordwide butter markets'!R58C6"
    Cells(ligne, 52) = "=AX" & ligne & "-AY" & ligne
    Cells(ligne, 53) = "='[" & Filename & "]Wordwide butter markets'!R58C2"
    Cells(ligne, 54) = "='[" & Filename & "]Wordwide butter markets'!R58C3"
    Cells(ligne, 55) = "=BA" & ligne & "-BB" & ligne
    Cells(ligne, 56) = "='[" & Filename & "]Wordwide butter markets'!R52C5"
    Cells(ligne, 57) = "='[" & Filename & "]Wordwide butter markets'!R52C6"
    Cells(ligne, 58) = "=BD" & ligne & "-BE" & ligne
    Cells(ligne, 59) = "='[" & Filename & "]Wordwide butter markets'!R52C2"
    Cells(ligne, 60) = "='[" & Filename & "]Wordwide butter markets'!R52C3"
    Cells(ligne, 61) = "=BG" & ligne & "-BH" & ligne
    
     Cells(ligne, 62) = "='[" & Filename & "]Wordwide butter markets'!R72C8"
    Cells(ligne, 63) = "='[" & Filename & "]Wordwide butter markets'!R72C9"
    Cells(ligne, 64) = "=BJ" & ligne & "-BK" & ligne
    Cells(ligne, 65) = "='[" & Filename & "]Wordwide butter markets'!R72C5"
    Cells(ligne, 66) = "='[" & Filename & "]Wordwide butter markets'!R72C6"
    Cells(ligne, 67) = "=BM" & ligne & "-BN" & ligne
    Cells(ligne, 68) = "='[" & Filename & "]Wordwide butter markets'!R72C2"
    Cells(ligne, 69) = "='[" & Filename & "]Wordwide butter markets'!R72C3"
    Cells(ligne, 70) = "=BP" & ligne & "-BQ" & ligne
    Cells(ligne, 71) = "='[" & Filename & "]Wordwide butter markets'!R66C5"
    Cells(ligne, 72) = "='[" & Filename & "]Wordwide butter markets'!R66C6"
    Cells(ligne, 73) = "=BS" & ligne & "-BT" & ligne
    Cells(ligne, 74) = "='[" & Filename & "]Wordwide butter markets'!R66C2"
    Cells(ligne, 75) = "='[" & Filename & "]Wordwide butter markets'!R66C3"
    Cells(ligne, 76) = "=BV" & ligne & "-BW" & ligne
 Windows("Databasebutter.xls").Activate
End Sub