Dim J As Integer
With Feuil1 'j'utilise le codename et non le name de l'onglet
For J = 16 To .Range("C" & Rows.Count).End(xlUp).Row
If .Range("I" & J) = "" Then
.Range("P4") = .Range("A" & J)
Sheets("LETTRE").PrintOut
.Range("I" & J) = Date
End If
Next J
End With