Bon, j'y suis arrivé en faisant ce qui suit pour montrer ma logique d'apprenti:
Sub CSV_En()
Sheets("Source").Select
Range("B1:L37").Select
Range("B1:L37").Copy
'Range("B1:L7,F10:H11,I10:J11,K10:L11,C26:J26").Select
'Range("B1:L7,F10:H11,I10:J11,K10:L11,C26:J26").Copy...