Bonjour à tous ,

J'ai un code qui doit me permettre de copier la ligne complête si sa cellule A contient la date aujourdhui()vers un autre fichier cette ligne doit se coller dans la ligne dont la cellule A est "" (premiere ligne vide )
Voici mon code qui ne marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub distri2()
    Dim Lastlig As Long, i As Long
    Dim Dest As Range
    Workbooks.Open "C:\Documents and Settings\PC42\Bureau\Stats_equipes.xlsx"
    Workbooks.Open "C:\Documents and Settings\PC42\Bureau\A_4_2_LagerKontrolleGP.xls"
    Set Dest = Workbooks("Stats_equipes").Sheets("progression").Range("A6000").End(xlUp)(2) 'Cellule de destination
        ActiveWorkbook.RefreshAll
    With Sheets("status_6") 'Changer le nom de la feuille
    For i = 1 To 35
        'Value2 contient le numéro de série de la date, indépendant du format.
        If .Range("a" & i).Value2 = Date Then
            .Range("a" & i).EntireRow.Copy Destination:=Dest
            Exit For
        End If
    Next
    End With
End Sub
Pourriez vous m'aider?

merci