Insertion d un saut de page qd il y a mot clé

Salut,

en supposant que ta valeur 1*************** apparaisse en colonne A Feuille1 et que tu souhaites mettre un saut de page au dessous de cette valeur, coller le code ci-dessous dans les propriétés de la feuil1 (clic droit sur l'onglet Feuil1/Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim LigFin As Long
Col = "A"
LigFin = Range("A65536").End(xlUp).Row + 1
NumLig = 1
With ActiveSheet
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig
If .Cells(Lig, Col).Value = "1***************" Then
.Cells(Lig + 1, Col).EntireRow.Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
NumLig = NumLig + 1
Cells(LigFin, 1).Select
LigFin = LigFin + 1
End If
Next
End With
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)