derniere cellule d'une ligne

Bonjour le forum,

je chercher comment renvoyer une valeur à la derniere colonne d'une ligne.
(n'importe la quelle)
Puis combiner la recherche de la derniere ligne d'une colonne à la derniere colonne d'une ligne.

c.a.d que dans une plage de donnée extraite à l'aide

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Aligne = Sheets(2).Range("H65536").End(xlUp).Row
PlageA = Sheets(2).Range("H5:H" & Aligne).Address
ListBox1.RowSource = "BD!" & PlageA
ListBox1.ColumnWidths = "2 cm"
End If
End Sub

ajouter des informations sur cette ligne sur la derniere colonne libre.

merci j'espere avoir été assez claire.

Steph