Sub Test()
Today = Int(Now)
'j - 1
J_1 = Today - 1
'j - 2 - J_2 = Today - 1
DerLig = Range("A1:A" & Range("A65536").End(xlUp).Row).Count
k = 1
For i = 2 To DerLig
If CDate(Left(Cells(i, 1), 10)) = J_1 Then
Ligne = Range("A" & i & ":J" & i)
For j = 1 To 9
Sheets("Feuil2").Cells(k, j) = Ligne(1, j)
Next j
k = k + 1
End If
Next i
End Sub