VBA Copier vers autre page selon critère

Bonjour le forum

Besoin d'aide, je joint un fichier.

Merci d'avance

Nonno

Bonjour,

Essaie :

Sub Copie()
  Dim Ligne As Long
  With Sheets("ArchivMouv")
    Ligne = .Cells(.Rows.Count, 14).End(xlUp).Row
    Intersect(.Range("4:" & Ligne), Union(.Range("N:Q"), .Range("S:S"), .Range("U:V"))).Copy
    Sheets("Stock Juan").Range("Tableau8067[Date]").PasteSpecial xlValues
  End With
End Sub

Daniel

Merci Daniel, mais ça ne fonctionne pas

je souhaiterais que le copier coller se fasse selon le critère "X2" donc que le collage se fasse dans la feuille correspondant au critère et si possible en haut du tableau sans effacer l'existant bien sûr.

Le nombre de lignes à copier est variable

Sub Copie()
  Dim Ligne As Long, Feuille As String, Plage As Range
  With Sheets("ArchivMouv")
    Feuille = .[U2]
    Ligne = .Cells(.Rows.Count, 14).End(xlUp).Row
    Set Plage = Intersect(.Range("4:" & Ligne), Union(.Range("N:Q"), .Range("S:S"), .Range("U:V")))
  End With
  With Sheets(Feuille)
    .Range("4:4").Resize(Ligne - 3).Insert
    Plage.Copy
    .Range("C4").PasteSpecial xlValues
  End With
End Sub

Daniel

Super, merci Daniel exactement ce que je voulais.

Merci encore

Bonne soirée

Cordialement

Nonno