Ne pas imprimer les factures à 0

Sub ImpToutesFact()
  Dim Lig As Long, DerLig As Long
  Dim ShtD As Worksheet, ShtF As Worksheet
  ' Attribue chaque feuille à une variable
  Set ShtD = Sheets("DONNEES")
  Set ShtF = Sheets("FACT")
  ' Récupère la dernière ligne du tableau des données
  DerLig = ShtD.Range("A65536").End(xlUp).Row
  ' Pour chaque ligne du tableau
  For Lig = 4 To DerLig
    ' Vérifie que pas déjà facturée
    If ShtD.Range("h" & Lig) = "" Then
    
    Else
    If ShtD.Range("I" & Lig) = "" Then
      ' Inscrit le nom sur la facture
      ShtF.Range("H15") = ShtD.Range("C" & Lig)
      ' Inscrit la date du jour dans les données
      ShtD.Range("I" & Lig) = Format(Now(), "dd/mm/yyyy")
      ' Impression de la facture
      ActiveWindow.SelectedSheets.PrintPreview 'Out Copies:=1, Collate:=True
    End If
    End If
   
  Next
End Sub