Sub Valdblocs()
Dim y As String, x As String
'dim t as ...
'dim f as ...
'dim g as ...
'dim z as ...
y = Sheets("Tranches").Range("C7").Value
x = Sheets("Tranches").Range("D7").Value
t = Sheets("Tranches").Range("E7").Value
f = Sheets("Tranches").Range("F7").Value
g = Sheets("Tranches").Range("G7").Value
Sheets("Tranches").Range("Z1").Value = DateValue(Sheets("Tranches").Range("A8").Value & " " & Sheets("Tranches").Range("B8").Value)
Z = Sheets("Tranches").Range("Z1").Value
MsgBox ("Les tranches sont rentrées dans le stock")
i = Range("B8").Value
Select Case i
Case "Janvier"
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Analyse\Gestion des achats Tranhces.xls", UpdateLinks:=0
Sheets(i).Select
Case Else
Workbooks.Open Filename:="H:\GESTION DE PRODUCTION\Analyse\Gestion des achats Tranhces.xls", UpdateLinks:=0
Sheets(i).Select
Range("a65536").End(xlUp).Offset(1, 0).Value = Z
Range("b65536").End(xlUp).Offset(1, 0).Value = g
Range("c65536").End(xlUp).Offset(1, 0).Value = y
Range("e65536").End(xlUp).Offset(1, 0).Value = x
Range("d65536").End(xlUp).Offset(1, 0).Value = t
Range("f65536").End(xlUp).Offset(1, 0).Value = f
End Select
ActiveWorkbook.Save
ActiveWindow.Close
ThisWorkbook.Close savechanges:=False
Application.Quit
End Sub