Sub test()
Dim X&
With Application
.CopyObjectsWithCells = True ' en général il est a true mais sait-on jamais :)
x = .IfError(.Match([COMPO!$M$12], [JOUEURS!C:C], 0), 0)
End With
If x > 0 Then Sheets("JOUEURS").Cells(x, "B").Copy [COMPO!m13]
End Sub