Public Sub JeCopieOuJeVeux()
Dim I As Integer
Dim ObjExcel As Excel.Application
Dim MaFeuille As Excel.Worksheet
Dim MonClasseur As Excel.Workbook

sChemin =...