Mon probleme est strictement similaire à celui-là:
http://www.developpez.net/forums/sho...d.php?t=133597
Je veux fusionner deux pages. Seulement, ça bloque déja à la premiere etape. Pourquoi?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Dim ranklow As Long, rankhigh As Long
ranklow = Worksheets("infos clients CP<5").Cells.SpecialCells(xlCellTypeLastCell).Row
rankhigh = Worksheets("infos clients CP>=5").Cells.SpecialCells(xlCellTypeLastCell).Row
'inutile pour l'instant
 
MsgBox (ranklow)
Worksheets("infos clients CP<5").Range(Cells(2, 1), Cells(ranklow, 255)).Copy
'c'est ici que j'ai un bug
 
Worksheets("infos clients").Range(Cells(2, 1), Cells(ranklow, 255)).Paste