Re : Trouver la dernière cellule
Bonjour
Pas sur d'avoir bien compris.
a essayer
Sub test()
For Each c In Range("G10").Resize(Rows.Count - 10, 1)
If c.Borders(xlEdgeBottom).LineStyle <> xlNone Then c.Offset(, 1) = IIf(CStr(c) <> "", "J", "L")
Next c
End Sub