With Sheets(1)
.Rows(1).Copy ActiveSheet.Rows(1)
For i = 2 To .[A65536].End(xlUp).Row
If .Cells(i, 1) = "COURRIER" Or .Cells(i, 1) = "VERIF" Then
.Rows(i).Copy ActiveSheet.Rows(j)
j = j + 1
End If
Next
End With
ActiveSheet.Columns("A:C").EntireColumn.AutoFit
Set rng = Nothing
On Error Resume Next
Set rng = ActiveSheet.Range("A1:C" & [A65536].End(xlUp).Row)
On Error GoTo 0