Sub a()
With ThisWorkbook.Worksheets("Feuil1")
.Cells(10, 1).Value = "Dernière ligne utilisée de la feuille ->"
'Objet de la question, syntaxe non valide:
'.Cells(10, 4).Value = b(.)
'Méthode détournée
.Cells(10, 4).Value = b(.Cells(1, 1).Parent)
End With
End Sub
Function b(WS As Worksheet)
b = WS.UsedRange.Row + WS.UsedRange.Rows.Count - 1
End Function