Dim sheet As Object Dim exldoc As Object Dim exlapp As Object Dim i As Integer Dim j As Integer Dim croix As String Set exlapp = CreateObject("excel.application") Set exldoc = exlapp.workbooks.Open(App.Path & "\ta_feuille.xls") Set sheet = exlapp.activeWorkBook.ActiveSheet For i = 1 To 1000 ' metre le nomde de ligne de ta feuille excell 'le i represente le numero de ta ligne 'donc (I,1) I= numero de la ligne,1=numero de la colonne If sheet.cells(i, 1) "X" Then '1 colonne A a sheet.cells(i, 2) '2 colonne B b sheet.cells(i, 3) '3 colonne C c sheet.cells(i, 4) ' 4 colonne C End If Next i