Bonjour,

Voici un morceau de code qui ne marche pas et je ne trouve pas pourquoi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub fusionPalette()
Dim listCol As String
Dim j1 As Integer, j2 As Integer
Dim iLin As Integer
Dim iCol As Integer
 '   Application.DisplayAlerts = False
        listCol = ("1,3,8,13,18,25,32,41")
        Sheets("Modifications").Select
    For iLin = 2 To 10
        For iCol = 0 To 6
            j1 = Split(listCol, ",")(iCol)
            j2 = Split(listCol, ",")(iCol + 1) - 1
            Sheets("Modifications").Select
            Sheets("Modifications").Range("celMdfDoc_2").Range(Cells(2, j1), Cells(2, j2)).Merge
        Next iCol
    Next iLin
End Sub
Ça bloque toujours sur ' .Range("celMdfDoc_2").Range(Cells(2, j1), Cells(2, j2)) '
Où est ma faute ?

Merci si vous pouvez m'aider.