Sub recap()
lig = -6
For onglet = 2 To 13
lig = lig + 12: i = 0
Range("D" & lig & ":L" & lig + 9) = ""
With Sheets(onglet)
For k = 7 To 44
If .Cells(k, 14) > 2 Then
Sheet1.Cells(lig + i, 4) = .Cells(k, 6)
Sheet1.Cells(lig + i, 6) = .Cells(k, 8)
Sheet1.Cells(lig + i, 8) = .Cells(k, 10)
Sheet1.Cells(lig + i, 10) = .Cells(k, 12)
Sheet1.Cells(lig + i, 12) = .Cells(k, 14):i=i+1
End If
Next
End With
Next
End Sub