derniere cellule de la ligne par macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double-clic dans une cellule
 
Dim li As Long 'déclare la variabel li
 
If Target.Value = "" Then Exit Sub 'si la cellule est vide sort de la procédure
 
Cancel = True 'évite le mode édition lié au double clic
li = Target.Row 'définit la variable li
 
'place en A1 la valeur de la dernière colonne éditée de la ligne du double-clic
Range("A1").Value = Cells(li, 256).End(xlToLeft).Value
End Sub