Sauts de page automatiques

Bonjour à tous,

J'ai converti un fichier texte dans un classeur excel. L'ennui, c'est que toutes les informations se retrouvent les unes à la suite des autres, et fait de ce fichier un fichier difficilement exploitable.

Plusieurs informations de meme type sont regroupées, comment toujours pas le même libellé mais n'ayant pas la même taille.

J'aimerai donc pouvoir insérer automatiquement un saut de page pour pouvoir imprimé chaque section une à une.

Je vous ai joint un fichier pour que vous puissiez comprendre plus en détail mon problème.

Ici, j'aimerai qu'à chaque fois que l'on rencontre les caractères "L E TONDU", un suat de page s'insère juste avant... Est-ce possible selon vous ? Via une macro couplée a une mise en forme conditionnelle peut être ? Aidez moi...

Merci beaucoup pour votre aide,

Cordialement,

Thibaut

Bonjour

Par macro

Sub saut()
Dim i As Integer
For i = 2 To [A65000].End(xlUp).Row
    If Cells(i, 2) = "E TONDU" Then
        Rows(i).Select
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    End If
Next

End Sub

Cordialement

Parfait !

Merci beaucoup !!

Thibaut