Bonjour Test, bonjour le forum,
je pense que tu voulais tester une cellule et pas une colonne...
Par Formule en B1 :
=Si(A1 = ""; 1; "")
Tu tires la formule vers le bas...
Par VBA :
Dim DL as Integer
DL=Cells(Application.Rows.Count, "A").End(xlUp).row
For I = 1 To DL
Cells(I, "B").Value = IIf(Cells(I, "A").Value="", 1, "")
Next I