ma sub()
dim i as integer,x as integer,ligne as integer,colonne as integer
x= 'recherche de la derniere cellule non vide de la feuille 2
ligne = 'numero de ligne à partir du quel le premier article va etre copier
colonne='numero de colonne ou les articles doivent etre copié
for i =(ligne de ton premier article sur la feuil 2) to x
If thisworkbook.worksheets("Feuil2").cells(i,2).value="VRAI" then
thisworkbook.worksheets("Feuil3").cells(ligne,colonne).value=thisworkbook.worksheets("Feuil2").cells(i,1).value ' copie de l'article qui est coché
ligne = ligne+1
end if
next i
end sub