si tu met des 1 dans la zone bleu et créé le résumé tu vas voire le problème
ccm81
Bonjour
Pour copier la valeur tu as
v = sheets("Feuil1").range("A1").value sheets("Feuil2").range("A1").Value = v
Cdlmnt
Moimarc
Auteur
Essaie peut-être d'ouvrir le lien histoire de voire que j'ai utilisé une méthode copy et comment la modifier directement merci.
cell.Offset(0, 1).Copy Range("Arrivée").Cells.SpecialCells(xlCellTypeBlanks).Range("A1")