Sub exploit()
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\A_4_2_LagerKontrolleGP.xls"
ActiveWorkbook.RefreshAll
For i = 4 To 34
If Cells(i, 1) = Date Then
Range("G" & i & ",H" & i & ",L" & i & ",M" & i & ",P" & i).Select
Selection.Copy
Exit For
End If
Next i
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\exploit.xlsx"
Windows("chiffres.xlsx").Activate
For d = 4 To 34
If Cells(d, 1) = Date Then