Private Sub Worksheet_Activate()
Dim t, i&, n
t = Intersect(Sheets("Recap").Range("a1").ListObject.DataBodyRange, Sheets("Recap").Columns("a:n"))
ReDim r(1 To 1 + 2 * Sheets("Recap").Range("a1").ListObject.ListRows.Count, 1 To 6)
For i = 1 To UBound(t)
If t(i, 9) = "Guich" And t(i, 10) Like "*Applicatifs*" Then
n = n + 1
r(n, 1) = t(i, 5): r(n, 2) = t(i, 6): r(n, 3) = t(i, 7): r(n, 4) = t(i, 8)
r(n, 5) = t(i, 9): r(n, 6) = t(i, 10)
End If
If t(i, 13) = "Guich" And t(i, 14) Like "*Applicatifs*" Then
n = n + 1
r(n, 1) = t(i, 5): r(n, 2) = t(i, 6): r(n, 3) = t(i, 7): r(n, 4) = t(i, 8)
r(n, 5) = t(i, 13): r(n, 6) = t(i, 14)
End If
Next i
With Sheets("Suivi").Range("a1").ListObject
Application.ScreenUpdating = False
For i = .ListRows.Count To 1 Step -1: .ListRows(i).Delete: Next
If n > 0 Then .ListRows.Add: .ListRows(1).Range(1, 1).Resize(n, 6) = r
End With
End Sub