Slt MJC55,
à tester
Sub Copier_par_macro()
Dim i As Long, j As Long, Derligne As Long
ActiveSheet.Range("A14:A43").ClearContents
With Sheets("Feuil1")
Derligne = .Cells(Rows.Count, "O").End(xlUp).Row
j = 14
For i = 2 To Derligne
If .Cells(i, 15).Value = Range("C2").Value Then
.Cells(j, 1).Value = .Cells(i, "N").Value
j = j + 1
End If
Next i
End With
End Sub