Private Sub Worksheet_Activate()
Dim c As Range
lesfeuilles = Array(1, 6)
lesobjets = Array("Saisies", "Tableau6")
Application.ScreenUpdating = False
For n = LBound(lesfeuilles) To UBound(lesfeuilles)
With Sheets(lesfeuilles(n)).ListObjects(lesobjets(n))
If .ListRows.Count > 0 Then .DataBodyRange.Rows.Delete
For Each c In Feuil5.ListObjects("Saisies").ListColumns(1).Range
If c.Value = "OUI" Then
With .Range(.ListRows.Count + 2, 1)
.Value = c.Offset(0, 1)
End With
End If
Next c
End With
Next
End Sub