Bonjour,

Débutant sur vba, j'essaie de faire une procédure qui concatène toutes les cellules d'une colonne en insérant un ';' entre chaque cellule...
Mais mon programme plante, voilà ce que j'ai imaginé:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Macro6()
Dim i As Integer
 
    Range("A2").Copy Range("F2")
    Range("F2").Select
 
Do While ActiveCell.Offset(i, -5) <> Empty
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[0],"";"",R[i]C[-5])"
i = i + 1
Loop
End Sub
Est-ce que quelqu'un voit ce qui ne vas pas?
Merci par avance et bonne journée