Sub Imprimer_Tout()
Dim i&
With Sheets("Feuil1")
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
i = 1
While .Cells(i, 1) <> ""
.PageSetup.PrintArea = .Cells(i, 1).Resize(95, 14).Address '.Resize(88, 14) si l'on veut s'arrêter au Total
.PrintPreview 'uniquement pour tester
'.PrintOut 'pour imprimer
i = i + 95
Wend
End With
End Sub
Sub Imprimer_Partie()
Dim cherche$, c As Range, i&
With Sheets("Feuil1")
Do
cherche = InputBox("Nom (en partie ou totalité) ou n° du matricule :", "Recherche", cherche)
If cherche = "" Then Exit Sub
Set c = .[A:N].Find(cherche, , xlValues, xlPart)
If Not c Is Nothing Then i = c.Row
Loop While i Mod 95 <> 1
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PageSetup.PrintArea = .Cells(i, 1).Resize(95, 14).Address '.Resize(88, 14) si l'on veut s'arrêter au Total
.PrintPreview 'pour tester
'.PrintOut 'pour imprimer
End With
End Sub