Sub FiltreCopie()
Dim tbSource(), tbCible()
Dim i As Long, j As Long, x As Long, y As Long, n As Long
Dim clé As Variant
x = Feuil11.Range("A65536").End(xlUp).Row
y = Feuil16.Range("A65536").End(xlUp).Row + 1
tbSource = Feuil11.Range("A2:K" & x).Value2
clé = Feuil16.Range("K1").Value
For i = 1 To UBound(tbSource)
If tbSource(i, 11) = clé Then n = n + 1
Next i
ReDim tbCible(1 To n, 1 To 11)
n = 0
For i = 1 To UBound(tbSource)
If tbSource(i, 11) = clé Then
n = n + 1
For j = 1 To UBound(tbSource, 2)
tbCible(n, j) = tbSource(i, j)
Next j
End If
Next i
If y >= 2 Then Feuil16.Range("A2:k" & y).ClearContents
Feuil16.Range("A2").Resize(UBound(tbCible), UBound(tbCible, 2)) = tbCible
End Sub