sélection et copie de ligne dans un tableau excel

[RAPHALEN]

Bonjour,

J'ai créé la macro suivante sous excel2000, pour rechercher une référence de type alpha-numérique dans la colonne A, sélectionner la ligne et la copier ensuite à la fin du tableau.

Sub recherche_ligne()
Selection.AutoFilter Field:=1, Criterial:="111-222-abc-3"
Row("36:36").Select
Selection.Copy
Selection.AutoFilter Field:=1
ActiveWindow.ScrollRow = 288
Rows("297:297").Select
ActiveSheet.Paste
End Sub

Pourtant pendant l'enregistrement de la macro la ligne 36 à bien été copiée en ligne 297.

Quand j'effectue une autre sélection la macro se plante sur la dernière ligne avec le message suivant: Erreur d'exécution'1004' la méthode Paste de la classe Worksheet a échouée.

je suppose qu'il doit manquer des instructions à la fin de cette dernière ligne.

Merci d'avance pour votre aide.

 

[f launay]

Bonjour, quand tu as finis de copier, déasactive la fonction copy avec l'instruction suivante
Application.CutCopyMode = False