Sub distri()
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\Stats_equipes.xlsx"
Workbooks.Open ("C:\Documents and Settings\PC42\Bureau\A_4_2_LagerKontrolleGP.xls")
ActiveWorkbook.RefreshAll
Dim Lastlig As Long, i As Long
For i = 1 To [O35].End(xlUp).Row
If Range("a" & i).Value = Format(Date, "dd / mm / yy") Then
Range("a" & i).EntireRow.Copy
End If
Next
Workbooks("Stats_equipes.xlsx").Activate
Dim Lastlign As Long, m As Long
For m = 1 To [O6000].End(xlUp).Row
If Range("a" & m) = "" Then
Range("a" & i).EntireRow.Paste
End If
Next
End Sub