il faut faire simple
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 sub concat() dim colonne , ligne as integer For ligne = 27 to 36 For colonne = 27 to 36 sheets("Feuil").cells(ligne, colonne) = sheets("Feuil").cells(ligne, colonne - 1 ) & sheets("Feuil").cells(ligne, colonne) Next colonne Next ligne End Sub
Partager