VBA Macro Excel de copier/coller plusieurs lignes

Bonjour,

Je dois programmer des macro sur Excel pour un fichier de gestion d'article dans mon entreprise.

J'ai déjà Réussi un bon bout.

Je m'explique, j'ai un ficher ou l'on inscrit le numéro d'article, une remarque, le numéro de contrat etc. Lorsque je clique sur le bouton Exportation, toute mes cellules s'exportent vers une autre feuille de mon classeur, imprime la première feuille et toutes les cellules de la première feuille s'effacent.

Mon problème est que si j'ai plusieurs article dans le même contrat, au moment d'exporter il exporte que le premier articles, j'ai cherché et testé pendant des heures le pourquoi du comment. Pouvez-vous m'aider. je vous mets mon code.

Merci.

Batooxx

Private Sub CommandButton1_Click()
'Macro Dan pour plavernhe le 20/05/2011
Dim dlg As Integer
Dim cel As Range
If Sheets("1").Range("G7") = "" Then MsgBox "Il manque le numéro de contrat en cellule A3": Exit Sub
dlg = Sheets("Synthèse").Range("A" & Rows.Count).End(xlUp).Row + 1
With Sheets("Synthèse")
.Range("A" & dlg) = Sheets("1").Range("G7")
.Range("B" & dlg) = Sheets("1").Range("A9") Enfaite j'ai des donnée dans les cellule A9 a A14
.Range("C" & dlg) = Sheets("1").Range("C9")
.Range("D" & dlg) = Sheets("1").Range("D9")
.Range("E" & dlg) = Sheets("1").Range("E9")
End With
ActiveWorkbook.Save
With Sheets("1")
.PrintOut
Set cel = Application.Union(Range("G7"), Range("A9:A14"), Range("C9:C14"), Range("D9:D14"), Range("E9:E14"))
cel.ClearContents
End With
End Sub