Re : cellule vide dans une formule
bonsoir,
je ne vois pas bien ce qu'il faut obtenir mais avec çà on a un résultat:
Sub test()
For Each cel In Range([A6], [A500])
lig = cel.Row
Cells(lig, 7).FormulaLocal = "=SI(A" & lig & " = """"" & ";G" & lig - 1 & ";A" & lig & ")"
Next
End Sub