Bonjour,
Je desirerai inserer un saut de page quand dans la colonne A la cellule est differente de la precedente.
J'ai fait ce code mais il insere une ligne qu'au premier changement.
Pouvez vous m'aider merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub InsereSautPage()
 
For i = 2 To 2100
 
 If Range("A" & i) <> Range("A" & i - 1) Then
 
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
 
End If
Next i
End Sub