Bonjour,  
 
Voici le code de ma macro
 
    ActiveCell.FormulaR1C1 = "=RC[-1]"
    Range("B3" ).Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-1]C,"";"",RC[-1])"
    Selection.AutoFill Destination:=Range("B3:B40" )
    Range("B3:B40" ).Select
    Columns("B:B" ).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
le seul problème que j'ai c'est que B40 doit etre une variable fonction du nombre de ligne pleines.
 
Comment contourner le problème...
 
merci de votre aide
 
calculer  le nbr de lignes pour action d'une macro

J'ai fait ca moi :
[fixe]
Function nbLignes(feuille) As Integer
    FeuilleActive = ActiveSheet.Name
    'Nombre de lignes de la feuille fichier :
    Worksheets(feuille).Select
    Range("A1" ).Select
    'Tant qu'on ne tombe pas sur une cellule vide on active la cellule d'après
    lignes = 1
    While IsEmpty(ActiveCell) = False
        ActiveCell.Offset(1, 0).Activate
        lignes = lignes + 1
    Wend
    'On récupère le numéro de la colonne et on enlève 1 pour avoir le nombre de ligne
    '(la derniere cellule active est vide)
    nbLignes = lignes
    Sheets(FeuilleActive).Select
End Function
[/fixe]
tu fous ca sur une colonne qui accepte tjrs un arguments et normalment ca marche impec

pour avoir le nombre de ligne rempli , c est pas bien dur
 
comp = 1
 
do while feuil.cells(1,comp)<>""
comp=comp+1
 
loop
 
le nombre de ligne est dans comp

arf battu d'une ligne

Merci de votre aide A++