Excel Macro

Salut,
Alors si tu sais faire un copier coller ça n'est pas très compliqué.

Tu affiches la boîte à outils contrôles (Affichage/barre d d'outils/boîte à outils contrôles).
Tu cliques sur l'icône Bouton de commande.
Tu dessines ton bouton de commande.
Tu va dans : Outils/Macro/Nouvelle Macro.
Tu nommes ta macro (ou laisse le nom par défaut "Macro1" ...) et cliques sur OK
A partir de maintenant toutes tes actions sont enregistrées.....
Sélectionnes les cellules de ton tableau à copier ; Edition/copier
Cliques sur le "Range" équivalant dans l'autre tableau : Coller.
Va dans : Outils/Macro/Arrêter l'enregistrement.
double clic sur ton bouton.
Sur la gauche de l'écran cherche Modules/module1 --> double clic, le code apparait à droite, copie le
Ferme cette fenêtre de code tu as maintenant à l'écran le code de ton bouton : colle entre les 2 lignes (avant End Sub) le code de ta macro et ferme la fenêtre.
Dans la barre d'outils contrôle clique sur "mode création" pour le désactiver et essaie ça doit fonctionner...

En fait je dois pas prendre toutes les colonnes... Je dois en prendre que certaines et il se peut que des lignes soit rajoutées entre-temps :s
et comme tu m'as dit sa marche pas oO je connais mais c'est comme si je pissais dans l'oreille d'un sourd :s

"pisser dans l'oreille d'un sourd" dois je le prendre mal?

lol non c'est mon pere qui dit sa sa vise personne ^^'
et non pas de lignes vides

la première partie : copier le 1er range de ton tableau :
supposons que la partie à copier commence en B5 :
ActiveSheet.Range("B5").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
lig = ActiveCell.Row
ActiveSheet.Range("B5").Select
Do While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(0, -1).Select
col = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
ActiveSheet.Range("B5:" & col & lig).Select
Selection.Copy

Merci bien
je vais tester sa et je t'en dit plus