XL 2010 date avec condition

Sub test()

tabloValid = Feuil2.Range("A2:C" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row)
Dim miniTablo()
Application.ScreenUpdating = False
For i = 1 To UBound(tabloValid)
    With Feuil2
       
       If .Cells(ligneID, 20) = Date _
       And .Cells(ligneID, 21) = Date Then
        .Cells(ligneID, 20) = ""
        .Cells(ligneID, 21) = ""
       Else
           
           ligneID = Application.Match(tabloValid(i, 1), .[A:A], 0)
           
           
            If tabloValid(i, 3) = "test" _
            And .Cells(ligneID, 20) = "" Then
            .Cells(ligneID, 20) = DateSerial(Year(Date), Month(Date) - 1, 1)
            End If
           
            If tabloValid(i, 3) = "test" _
            And .Cells(ligneID, 20) = Date Then
           
            If tabloValid(i, 3) = "" _
            And .Cells(ligneID, 20) = "" Then
           
             If tabloValid(i, 3) = "" _
            And .Cells(ligneID, 20) = Date Then
            .Cells(ligneID, 21) = DateSerial(Year(Date), Month(Date) - 1, 1)
                End If
               
               
                ReDim miniTablo(1 To 8)
                For x = 1 To 8
                    miniTablo(x) = tabloValid(i, x)
                Next x
                If tabloValid(i, 3) = "test" Then
                   
                   Feuil1.Cells(Rows.Count, 49).End(xlUp).Offset(1, 0).Resize(1, 8) = miniTablo
                End If
           
          
              
        End If
    End With
Next i
Application.ScreenUpdating = True
End Sub