Sub Recap()
Set Lignes = New Collection
Feuilles = Array("Mars-Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Nov-Dec")
With Application
.ScreenUpdating = 0
.Calculation = xlCalculationManual
End With
For n = 0 To UBound(Feuilles)
l = 1
With Sheets(Feuilles(n)).Cells(1, 14)
While .Offset(l, 0) <> ""
If IsDate(.Offset(l, 0)) = True Then
Lignes.Add .Offset(l, 0).EntireRow
End If
l = l + 1
Wend
End With
Next
Call RangeLignes(Lignes)
With Application
.ScreenUpdating = 1
.Calculation = xlAutomatic
End With
End Sub
Sub RangeLignes(Lignes)
Set dest = Sheets("Recap").Range("a2")
n = 0
For Each l In Lignes
Set Z = l.Parent.Range(l.Parent.Cells(l.Row, 14), l.Parent.Cells(l.Row, 14 + 28))
Z.Copy dest.Cells(n, 14)
n = n + 1
Next
End Sub