Recherche Programme VBA/Excel pour copier

Bonjour,je cherche une programme qui me permet de recopier les informations dans un autre classeur et dans un autre ordre sur l’ordre d’un checkbox.

J’ai essayé de chercher un programme mais j’y arrive pas.

En gros :
Classeur 1 Classeur 2
Onglet 1, Onglet2,.. Onglet 1, Onglet2,..

Si case à cocher de la colonne A1 = true

- rechercher dans colonne A du classeur 1 les valeurs X différents de 0
Colonne A Classeur 1 Colonne C Classeur 1
L1 1000 a= 50
L2 b= 20
L3 c= 30
L4 0 0
L5 1100 a= 20
L6 b= 10
L7 c= 60
L8 0 0
L9 0 0
L10 0 0
…………

- pour chaque valeur trouvée, sélectionner/copier dans colonne C du classeur 1 : L1/C, L2/C et L3/C

- coller ces informations dans Classeur 2 si valeur de Colonne A classeur 1 = valeur colonne A classeur 2

o coller différemment suivant model bien que valeur Colonne A1 identique.
Colonne A Classeur 2 Colonne C Classeur 2
L1 1000 20
L2 30
L3 50
………

La boucle s’arrête à la ligne 500 colonne A de chaque onglet du classeur 1
Et si 1 case à cochet est activée, toutes les autres cases à cocher se trouvant sur cette feuille sont désactivées.

SVP Merci pour votre aide. Je vous joint le début de programme que j’ai réussi à pondre. MErci de partagere votre savoir car moi je commence à me tirer les cheuveux. De plus c'est pour le TAF!

------------------
Mon code incomplet:
------------------
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then

Worksheets("feuil3").Range("C8;AC9;c10;C12;c1­4;c15;C22").Copy _
Destination:=Workbooks("My2.xls").Worksheets("­;feuil3").Range("D8;D9;D10;D12;D14;D15;D17")


MsgBox "Modification effectué : Janvier COPIE"

Else
If CheckBox2.Value = False Then

Worksheets("feuil2").Range("A10:A20").Cl­ear

MsgBox "Modification effectué : Janvier EFFACE"

End If
End If
End Sub

Configuration: Windows XP
Internet Explorer 7.0