Sub rap_hebdo()
'
' rap_hebdo Macro
'
Dim date1, date2, deliv, expir As Date
Dim np As String
ligne2 = 6
With Worksheets("RAPPORT")
date1 = Cells(2, 2).Value2
date2 = Cells(2, 4).Value2
End With
With Worksheets("TABLE")
nbr = .Range("A" & .Rows.Count).End(xlUp).Row
For ligne = 2 To nbr
If date1 >= .Cells(ligne, 2).Value2 And date2 <= .Cells(ligne, 3).Value2 Then
np = .Cells(ligne, 1).Value
deliv = .Cells(ligne, 2).Value
expir = .Cells(ligne, 3).Value
With Worksheets("RAPPORT")
Cells(ligne2, 1) = np
Cells(ligne2, 2) = deliv
Cells(ligne2, 3) = expir
ligne2 = ligne2 + 1
End With
End If
Next ligne
End With
End Sub