Re : mixer 2 macros
Je crois que j'ai réussi :
Option Explicit
Sub recap()
Dim o As Worksheet
Set o = Worksheets("Base")
o.[A1].CurrentRegion.Offset(1, 0).Clear
Dim nSh&, nCol&, shList
shList = Array("A", "B", "C", "D")
nCol = Sheets(shList(0)).[A1].End(xlToRight).Column...