Je viens de regarder, le tableau fonctionne, j'ai l'impression que quand le filtre va chercher les valeurs, il les colle toutes à la suite en même . Il semble que le tableau ne s'agrandit que quand les valeurs sont insérées une à une.
Me demande pas comment, j'ai pas compris concrétement ce qui l'a forcé à fonctionner puisque lors des deux premiers essais avec le même code il m'a trouvé un bug à propos du range tableau5, j'ai juste relancé la macro une troisième fois et ça a fonctionné ... Les joies de l'informatique ...
Sub Rechercher()
Dim lastRow As Integer
lastRow = 0
'Dim lastRow As Long
'
' Rechercher Macro
'
Range("Tableau5[#All]").Select
ActiveSheet.ListObjects("Tableau5").TableStyle = "TableStyleDark3"
Range("A6:G10").Select
Range("A10").Activate
Selection.ClearContents
Range("G9").Select
ActiveSheet.ListObjects("Tableau5").Resize Range("$A$5:$G$7")
Range("A6:G7").Select
Sheets("Performances individuelles").Range("Tableau1[#All]").AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Range("Recherche!Criteria"), _
CopyToRange:=Range("A5:G7"), Unique:=False
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.ListObjects("Tableau5").Resize Range(Cells(5, 1), Cells(lastRow, 7))
End Sub
Merci en tout cas des conseils.