Option Explicit
Sub CopyCaptain()
Dim CelSrc As Range
Application.ScreenUpdating = False
Feuil2.Cells.Clear
Feuil1.Rows(1).Copy
Feuil2.Paste
Feuil2.PasteSpecial Format:=xlPasteColumnWidths
For Each CelSrc In Feuil1.Range("E2:E" & Feuil1.UsedRange.Row)
If UCase(CelSrc.Value) = "CAPITAINE" Then
CelSrc.EntireRow.Copy Destination:=Feuil2.Rows(Feuil2.UsedRange.Row + 1)
End If
Next CelSrc
Application.ScreenUpdating = True
End Sub