' impression mensuelle de la liste des points de contrôle
' Pour chaque véhicule
Sub ImprimerLPC()
Dim i As Integer
Dim tbl As Variant
tbl = [listeIMMAT].Value
For i = 1 To UBound(tbl)
' s'il existe une valeur
If Not IsEmpty(tbl(i, 1)) Then
With ThisWorkbook.Sheets("liste points de controle")
.Range("O2").Value = tbl(i, 1)
.PrintPreview
'.Print
End With
End If
Next i
End Sub