Excel/MACRO copier/coller entre feuilles

Et Re bonjour,
me revoilà avec la suite de mon code, maintenant que mes dates s’affichent toutes seules grâce à Bidouilleu_R (MERCI), je souhaite maintenant que ma macro recherche un code dans une liste se trouvant dans une autre feuille, ce code étant taper dans une box de mon userform, je veux ensuite copier la ligne correspondante au code puis la coller dans la première feuille là ou mes dates s’affichent (en dessous et en double si possible), j’ai mis des commentaires pour rendre mon code plus clair en espérant que cela suffise. . .
Le code marche jusqu'à la ligne : Worksheets("CODES ARTICLES").Row.Copy
Message d’erreur : propriété ou methode non gérée par cet objet
Voici le code :

Private Sub crea_Click()

Dim a As Integer
Dim b As Long

Dim datesuite As Date
Dim depose As Date
Dim retour As Date
Dim x As Integer

b = numof_crea

a = 0
Do
a = a + 1
Loop Until Application.Cells(a, 1) = b

Cells(a, 1).Value = b
Cells(a + 1, 1).Value = b
Cells(a + 2, 1).Value = b
Cells(a, 2).Value = codearticle
Cells(a + 1, 2).Value = codearticle
Cells(a + 2, 2).Value = codearticle
Cells(a, 3).Value = datedepose
Cells(a, 4).Value = dateretour
Cells(a, 4).Select

depose = datedepose
retour = dateretour

nbjours = retour - depose

ActiveCell.Offset(0, 1) = depose

For x = 1 To nbjours
datesuite = CDate(Cells(a, x + 4).Value) + 1 ' je te conseille de partir du début de la ligne Axx : sur cette ligne tu as écrit 5 infos et c'est cette dernière infos que tu récupères
Cells(a, x + 5).Value = datesuite ' les dates sont en lignes... donc ici x+5 pour avoir le dernier
Next x

x = 5
With Range(Cells(a, x), Cells(a, nbjours + x))
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 15
.NumberFormat = "ddd-dd/mm/yy"
.Font.Bold = True
End With

Worksheets("CODES ARTICLES").Select ‘je selectionne un onglet

Dim d As Long ‘ je declare la variable de codearticle une combobox
d = codearticle

Dim c As Integer ‘ je fais une boucle sur ma 2° colonne jusqu’à la valeur b (codearticle)
c = 1
Do
c = c + 1
Loop Until Application.Cells(c, 2) = d

Worksheets("CODES ARTICLES").Row.Copy ‘ je copy la ligne sur la quel ma boucle s’arête
Worksheets("SUIVI DES OF").Select ‘ je re selectionne la feuille ou j’était

Dim e As Integer ‘ je boucle à nouveau pour trouver codearticle dans la feuille dans la quel je suis revenue = 1
Do
e = e + 1
Loop Until Application.Cells(e, 2) = d

Worksheets("SUIVI DES OF").Paste Destination:=Worksheets("SUIVI DES OF").Range("E", e + 1) ' je colle la ligne à partir de la colonne E une ligne en dessous de là ou s’est arrêtée la boucle
Exit Sub

Unload Creasupp
End Sub

Voilà si quelqu’un a une petite idée ce serait cool

Merci d’avance

--
MERCI A CCM à déclarer source d'intéret public . .. .. pensez à marquer vos topic résolus quand c'est le cas .. . . .

Configuration: asus P5V800 / P4 2,8 Ghz / 1,5 Go Windows XP FireFox / IE 7