bonjour,
 
J'aimerais utiliser la macro suivante sous Excel :
 
Sub eliot()
    Set vzone = Selection
    vtxt = vzone.Range("a1" ).Value
    For i = 2 To vzone.Rows.Count
        vtxt = vtxt & Chr(10) & vzone.Cells(i, 1).Value
        vzone.Cells(i, 1).ClearContents
    Next
    vzone.Range("a1" ).Value = vtxt
    With vzone
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    vzone.Range("a1" ).Value = vzone.Range("a1" ).Value
End Sub
 
Mais coment fait-on pour la lancer ?
 
Merci d'avance pour les réponses

j ai pas trop regardé ce qu el fait, mais tu peux mettre un boutton sur ta fenetre. ou ajouter un raccourci clavier.

Outils -> Macros -> Macros  
ou  
Alt+F8
 
Tu sélectionnes ta macro et "Exécuter".

Merci
ce que je ne comprends pas c'est que j'ai le texte de la macro, mais comment on la met en oeuvre.
Par altf8 j'ai une fenetre qui me demande d'éxecuter une macro mais je ne sais pas comment y mettre le patit programme décrit au dessus

Tu affiches la barre d'outils nommée "Visual Basic"
Tu clicks sur l'icone nommé "Visual Basic Editor"
Tu vas dans Affichage et tu clicks sur "Explorateur de projet"
A Gauche de ta fenetre doit se trouver une arborescence ressemblant a ceci :
- VBA Project (TonClasseur)
 - Microsoft Excel Object  <(-- ici tu clicks avec le bouton droit tu fais "Insertion" puis "Module"
 
Tu colles ton texte de ta macro dans feuille blanche qui s'est ouverte au centre de l'ecran.
Tu enregistres.
Tu fermes et tu réouvres ton fichier.
 
Ensuite tu peux suivre les procedures données precedement pour lancer une macro (Alt + F8 etc.)
 
Cordialement.

ok ca marche
merci