[excel/vba] mettre un jour un fichier excel

Private Sub Workbook_Open()
     dim monchemin as string, wb as workbook, maplage as range, i as long
     monchemin = thisworkbook.path
     ' maintenant je vais tricher, je vais creer une formule de cacatenation dans la colonne D afin de ne faire q'un seul test
     sheets(1).range("D1").formulalocal = "=A1 & B1 & C1"
     ' je recopie la formule sur toute la colonne selon le nombre d'enregistrements de la colonne A
     sheets(1).range("D1:D" & sheets(1).range("A65536").end(xlup).row).filldown
     ' je charge en memoire la colonne D
     set maplage = sheets(1).range("D1:D" & sheets(1).range("A65536").end(xlup).row)
     ' j ouvre le fichier à controler
     set wb = workbooks.open filename:= monchemin & "\export.xls"
     with wb.sheets(1)
            for i = 1 to .range("A65536").end(xlup).row
                     ' je vais controler si la ligne existe avec la fonction NB.SI (countif)
                  if application.WorksheetFunction.CountIf(maplage,.range("A" & i) & .range("B" & i) & .range("C" & i) =0 then .range("D" & i) = 1
            next i
            'jai donc mis des pointeurs (1) en colonne D pour les enregitrement à copier
            ' je vais maintenant filtrer, ensuite faire un copier coller de tout le bloc
            .range("A:D").autofilter field:=4, criteria1:= 1
            .range("A:C").specialcells(xlcelltypevisible).copy destination:=workbooks(1).sheets(1).range("A" & workbooks(1).sheets(1).range("A65536").end(xlup).row + 1)
            ' LA copie est faite, je deconnect le filtre automatique, je remet à zero la colonne D et je ferme le classeur
            .range("A:D").autofilter
            .range("D:D").clear
       end with
       wb.close false ' Fermeture sans sauvegarde
       sheets(1).range("D:D").clear ' j'efface ma formule de concatenation
End Sub

Private Sub Workbook_Open()
     dim monchemin as string, wb as workbook, maplage as range, i as long
     monchemin = thisworkbook.path
     ' je charge en memoire la colonne E
     set maplage = sheets(1).range("E1:E" & sheets(1).range("A65536").end(xlup).row)
     ' j ouvre le fichier à controler
     set wb = workbooks.open filename:= monchemin & "\export.xls"
     with wb.sheets(1)
            for i = 1 to .range("A65536").end(xlup).row
                  ' je vais controler si la ligne existe avec la fonction NB.SI (countif)
                  if application.WorksheetFunction.CountIf(maplage,.range("E" & i)) =0 then .cells(21,i) = 1
            next i
            'jai donc mis des pointeurs (1) en colonne 21 
            ' je vais maintenant filtrer, ensuite faire un copier coller de tout le bloc
            .range("A:U").autofilter field:=21, criteria1:= 1
            .range("A:T").specialcells(xlcelltypevisible).copy destination:=workbooks(1).sheets(1).range("A" & workbooks(1).sheets(1).range("A65536").end(xlup).row + 1)
            ' LA copie est faite, je deconnect le filtre automatique, je remet à zero la colonne D et je ferme le classeur
            .range("A:U").autofilter
            .range("U:U").clear
       end with
       wb.close false ' Fermeture sans sauvegarde
End Sub