Bonsoir Bruno,
Je cherchais à faire la même procédure que vous m'avez envoyée mais pour 1 seul magasin dans un nouveau classeur.
Sub Bruno()
Dim col%, lig%, lg%, i%
For lg = 12 To [A65000].End(3).Row
lig = Application.Match(Cells(lg, 1), Feuil7.[D:D], 0)
i = 4
For col = 2 To 30 Step 4 ' voir...