Bonjour à tous.

Je bloque sur une boucle pour fusionner des cellules. Je m'explique :

Toutes les cellules que je souhaite fusionner sont en ligne 2.
Je souhaite les fusionner 2 par 2 : B2:C2 puis passer à D2 que je fusionne avec E2, passer à F2 etc...
Je dois rater un truc....
Merci à toutes les bonnes volontés
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
    Range("B2").Select
    lig = 2
    col = 2
    For col = 2 To 40 Step 2
        Range("L2C" & col & ":L2C" & col + 1).Select
        Range(Selection).Merge
    Next col