Sub Macro1()
Dim DL As Integer
Dim PLV As Integer
Dim I As Integer
DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
PLV = IIf(Range("F2").Value = "", 2, Range("F1").End(xlDown).Row + 1)
For I = PLV To DL
If Cells(I, "A").Value <> "" Then Cells(I, "F").Value = "A " & I & " n'est pas vide."
Next I
End Sub