Je n'arrive pas a poster le fichier mais voici le code que j'ai fait pour l'instant , j'imagine que je dois le renforcer avec des boucles for et if mais bon... je dois remplir une partie de la feuille universal avec les reponses de la registration form et j'aimerais remplir a chaque fois une nouvelle ligne quand on change les réponses et qu'on appuie sur un bouton.
Merci.
sheets("Registration Form ").Select
Range("B1:B27").Select
Selection.Copy ' Copier le texte
Sheets("Universal").Select
Range("N5:AN5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, skipBlanks:=False, Transpose:=True
Application.CutCopyMode = False