CODE VBA Imprimer à partir d'une liste déroualnte

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

Private Sub cmdLancerImpression_Click()
Dim dep As Long, fin As Long, i As Long
dep = cmbMatriculeDepart.ListIndex
If dep = -1 Then MsgBox "Matricule de départ inexistant !", 48: cmbMatriculeDepart.SetFocus: Exit Sub
fin = cmbMatriculeFin.ListIndex
If fin = -1 Then MsgBox "Matricule de fin inexistant !", 48: cmbMatriculeFin.SetFocus: Exit Sub
With Sheets("Formulaire")
  .PageSetup.PrintArea = ""
  For i = dep To fin
    .[G1] = i + 1
    .PrintOut
  Next
End With
End Sub