Sub test()
Dim i&
With Sheets("RAPPORT DEFAUT")
For i = 3 To .Cells(.Rows.Count, 1).End(3).Row
If .Cells(i, 14).Value = "A REPORTER" Then
.Range(.Cells(i, 1), .Cells(i, 13)).Copy _
Sheets("RAPPORT METIER").Cells(.Rows.Count, 1).End(3)(2)
End If
Next i
End With
End Sub