Sub extract()
Dim nom, t, i&, j&, n&
Application.ScreenUpdating = True
With Sheets("Dynamiques")
nom = .Range("L2")
On Error Resume Next: Application.DisplayAlerts = False
Sheets("Extraction " & nom).Delete
Application.DisplayAlerts = True
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Extraction " & nom
n = Application.CountA(.Columns("c:c"))
t = .Range("c1:h1").Resize(n): n = 1
For i = 2 To UBound(t)
If t(i, 2) = nom Then n = n + 1: For j = 1 To UBound(t, 2): t(n, j) = t(i, j): Next
Next i
Sheets("Extraction " & nom).Range("a1").Resize(n, UBound(t, 2)) = t
End With
End Sub