Macro copie d'une feuille

Sub copier()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("commande").Copy After:=Sheets(i)
ActiveSheet.Name = "Exemplaire client " & i
Range("A6").value="Exemplaire Client"
Next i
End Sub

Cliquez pour agrandir...

Je souhaite ajouter une fonction qui me permette d'insérer automatique en A6 le texte "Exemplaire client".

Cliquez pour agrandir...

Sub copier()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
    Sheets("commande").Copy After:=Sheets(i)
    ActiveSheet.Name = "Exemplaire client " & i
   [COLOR=blue][B]ActiveSheet.Range("A6").Value = "Exemplaire Client"[/B][/COLOR]
Next i
End Sub

Je souhaite également envoyer cette feuille + une autre appelée "conditions" par mail. Existe-t-il une macro capable d'envoyer ces deux feuilles en pj dans un mail outlook ?

Cliquez pour agrandir...