Sub test()
Dim Cel As Range
Sheets("2010").Select
Set Cel = Range("A1:X2000").Find(Worksheets("saisie donnée").Range("C2"))
If Not (Cel Is Nothing) Then
Worksheets("Saisie Donnée").Range("C3:C21").Copy
Cel.Offset(1, 0).PasteSpecial Paste:=xlPasteValues
End If
End Sub