Simplification de macro

Bonjour à tous,

Je débute avec les UserForms, j'ai réussi à mettre en place un formulaire d'insertion de donnée qui quand on valide insère une nouvelle ligne et recopie les formats et formules de la ligne du dessus, voila le code:

Rows("10:10").Select
    Selection.Insert Shift:=xlDown
    Range("v9:y9").Select
    Selection.Copy
    Range("v10").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Range("c9:h9").Select
    Selection.Copy
    Range("c10").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

D'accord il est pas très beau... Mais il fonctionne :p, néanmoins le problème que je rencontre c'est qu'il est TRES lent...

Ainsi je pense qu'il existe plus simple pour arriver au même résultat plus rapidement mais je n'y arrive pas...

Pouvez-vous m'aider?

Merci d'avance pour votre aide

PS: si vous avez besoin du fichier, n'hésitez pas!

Bonjour Cut,

Une chose à retenir. La méthode Select appliquée à des cellules et générée par l'enregistreur de macro est très souvent inutile.

Voici une solution d'optimisation :

    Rows("10:10").Insert Shift:=xlDown
    Range("v9:y9").Copy Range("v10")
    Range("c9:h9").Copy Range("c10")

Effectivement il y avait bien plus simplel :-p

Merci beaucoup en tout cas