[HS]Erreur sur mon code copier-coller

[dac81]

Bonsoir le forum

Je remercie tous les participants de ce forum et souhaite vraiment tirer profit et en vous en partager aussi.
Je suis noviste en vba et viens solliciter votre aide pour parfaire le code ci-dessus.
En effet je l'ai réalisé pour pouvoir copier les données d'une plage et les coller sur la dernière cellule non vide de la colonne B.
Le collage doit debuté en CENTRALISATION!B2.
Lors de l'exécution, il y'a un débogage sur cette partie du code

Code : Tout sélectionner

  Sheets("CENTRALISATION").Select.Paste DEST

avec comme message "Erreur 424".
Dans l'espoir de m'avoir fait comprendre.

Code : Tout sélectionner

Sub Filtres()

Dim o As worsheet

Dim DEST As Range

    ActiveSheet.Range("A12:K700").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

        Range("Codes"), Unique:=False

    'ActiveWindow.SmallScroll Down:=-3

    Range("C13:K563").Select

    Selection.Copy

    'ActiveWindow.SmallScroll Down:=-123

    Sheets("CENTRALISATION").Select.Paste DEST

    Set DEST = IIf(Range("B2").Value = "", Range("B2"), Cells(Application.Row.Count, 2).End(xlUp).Offset(1, 0))

End Sub

[micmac]

Bonjour et bienvenue,

Microsoft office 2013 sur sept

Je suis noviste en vba

Hors sujet.
Vous vous êtes trompé(e) de forum.
Comme indiqué dans le bandeau supérieur de chaque page, nous sommes le Forum francophone de support pour Apache OpenOffice, LibreOffice et dérivés de OpenOffice.org.

Nous vous conseillons de vous rapprocher d'un forum traitant des questions relatives au produit payant que vous utilisez.

Cordialement