Aide macro excel (activsheet.printout)

bonjour

j'ai une macro dans excel qui m'imprime des formulaires
elle fonctionne bien mais je voudrai lui ajouter une comande pour q'elle
test une colonne d'une feuille d'une autre feuille est au lieu d'imprimer le formulaire
actif une seule fois comme elle le fait deja ,
elle imprimerais ce meme formulaire autant de fois que la valeure le la cellule testee

exemple si a la cellule contien la valeure 3, elle imprimerai la feuille active 3 fois.


merci d'avance pour votre aide

------------------------------------------------------------------------
Public Const APPNAME As String = "Shoe Riser"
Option Explicit

Sub PrintForms()
Dim StartIndex As Integer
Dim EndIndex As Integer
Dim Msg As String
Dim i As Integer
Dim n As Integer

Sheets("Form").Activate
StartIndex = Range("StartIndex")
EndIndex = Range("EndIndex")




If StartIndex > EndIndex Then
Msg = "ERROR" & vbCrLf & "The starting row must be less than the ending row!"
MsgBox Msg, vbCritical, APPNAME
End If


For i = StartIndex To EndIndex
Range("RowIndex") = i
ActiveSheet.PrintOut

Next i



End Sub

Sub EditData()
Worksheets("Data").Activate
Range("A1").Select
End Sub