Copie d'une feuille sur l'autre

[loulou]

bonsoir à tous

Aprés avoir trouvé le code correspondant à chaque ligne, je veux recopier
les cellules H2:BO2 de le feuille Bureau sur la feuille Calendrier.

Sub RechercheCx()
Dim x As Integer
Dim Code, i, Cx
Dim TableCx As Range
Dim MaPlage As Range

Application.ScreenUpdating = False
Set MaPlage = Sheets("BUREAU").Range("H2:BO2")
Code = Range("C2").End(xlDown).Row
Set TableCx = Sheets("BUREAU").Range("A:BO")
x = 1
For i = 2 To Code
On Error Resume Next
Cx = Application.WorksheetFunction. _
VLookup(Cells(i, 3), TableCx, 1, False)

' C'est ici que ça coince!!!

If Cx = Sheets("BUREAU").Cells(i, 3) Then
MaPlage.Rows(x).Select
Sheets("Calendrier").Range ("P1")
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If Err = 1004 Then GoTo Suite
x = x + 1
Suite:

Next
End Sub

comment écrire que si Cx est trouvé, de selectionner et copier vers
la feuille Calendrier les cellules H2:BO2

merci d'avance pour le tuyau

loulou13