Bonjour
Bonjour à tous
Tu peux aussi tenter ça, adapté de ton code :
Sub copie()
Range("Tableau1[Article]").Select
Selection.Copy
Sheets("Feuil2").Select
Range("Tableau22").Resize(1, 1).Offset(-2, 0) = "x" 'Pour que les2 tableau soient toujours
'séparés par au moins une ligne vide
Range("Tableau11[Article]").Resize(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Tableau22").Resize(1, 1).Offset(-2, 0) = ""
Range("Tableau11").Resize(1, 1).Select
End Sub
Bye !