Dim appExcel As Excel.Application Dim docExcel As Workbook Dim feuilleExcel As Worksheet 'ici tu crées/initialise tes objets application, classeur et feuille Set appExcel = CreateObject("Excel.Application") Set docExcel = appExcel.Workbooks.Open("D:\User\fouillis.xls") Set feuilleExcel = docExcel.Worksheets("Feuil1") appExcel.Visible = True 'ici tu changes la couleur de la colonne A en rouge feuilleExcel.Columns("A:A").Interior.ColorIndex = 3 'tu fermes le classeur en sauvegardant docExcel.Close SaveChanges:=True 'tu quittes Excel appExcel.Quit 'tu vides les variables Set feuilleExcel = Nothing Set docExcel = Nothing Set appExcel = Nothing