Re,
Allez, pas de régime sans 'cells' pour aujourd'hui.
Pour cette formule 'For Each...', mon choix devient
DerCol = Range('IV1').End(xlToLeft).Column
For Each C In Range(cells(1,1),cells(5,DerCol))
Si DerCol = 10, Range(cells(1,1),cells(5,DerCol)) devrait faire Range('A1:E10')...