Dernière colonne utilisee

Bonjour Chers tous

J'aimerais savoir comment repérer la dernière colonne utilisée de ma feuille.

Dans mon exemple-ci ma dernière colonne utilisée est la colonne 8

Merci

Bonjour,

Un exemple avec une fonction personnalisée.

Cdlt.

Public Sub Test()
    MsgBox LastColumn
    MsgBox LastColumn(15)
    MsgBox LastColumn(, ActiveSheet)
    MsgBox LastColumn(8, Worksheets("Feuil1"))
End Sub

Private Function LastColumn(Optional lRow, Optional ws As Worksheet)
    If IsMissing(lRow) Then lRow = 1
    If ws Is Nothing Then Set ws = ActiveSheet
    LastColumn = ws.Cells(lRow, Columns.Count).End(xlToLeft).Column
End Function