Bonjour,
Merci pour le code , je vais l'essayer et vous revenir.
D'ici là, j'ai décidé de changer ses lignes en tableau et de le nommer "essai".
Donc, j'ai eu
Sub test()
Range (" essai).select
selection.Copy
Range("A14).Select
ActiveSheet.Paste
Application. CutCopyMode=False
ActiveCell.FormulaR1C1=""
End Sub
Et ca marche aussi.
Je vais bien relire votre code pour m'inspirer et insérer le décalage nécessaire.
Je ne sais pas encore comment faire mais j'y arriverai.
Merci!