Private Sub Worksheet_Activate()
Dim t, i&, n&, Cancel As Boolean
With Sheets("T2")
t = .[C1].Resize(Application.Match("zzz", .[C:C]), 6)
End With
For i = 2 To UBound(t) - 1
If t(i + 1, 1) = t(i, 1) Then
n = n + 1
t(n, 1) = t(i, 1): t(n, 2) = t(i, 2): t(n, 3) = t(i + 1, 2)
If IsDate(t(i, 4)) Then t(n, 4) = CDate(t(i, 4)) _
Else t(n, 4) = t(i, 4)
t(n, 5) = t(i + 1, 4)
t(n, 6) = "=IF(RC[-2]<Sommaire!R1C1,1,0)"
i = i + 1
End If
Next
If n Then [A2].Resize(n, 6) = t
Rows(n + 2 & ":" & Rows.Count).Delete
[D:D].NumberFormat = "dd/mm/yyyy" 'si nécessaire
[E:F].NumberFormat = "General"
End Sub