Private Sub cmdLancerImpression_Click()
Dim dep As Variant, fin As Variant, i As Long
With Sheets("Base")
dep = Application.Match(Val(cmbMatriculeDepart), .[B3:B65536], 0)
If IsError(dep) Then MsgBox "Matricule de départ inexistant !", 48: cmbMatriculeDepart.SetFocus: Exit Sub
fin = Application.Match(Val(cmbMatriculeFin), .[B3:B65536], 0)
If IsError(fin) Then MsgBox "Matricule de fin inexistant !", 48: cmbMatriculeFin.SetFocus: Exit Sub
dep = .[A3].Cells(dep)
fin = .[A3].Cells(fin)
End With
With Sheets("Formulaire")
.PageSetup.PrintArea = ""
For i = dep To fin
.[G1] = i
.PrintOut
Next
End With
End Sub