Function DerLigne(xrg As Range)
'considère la première cellule du range xrg
'considère toute la colonne de la feuille correspondante à cette cellule
'recherche la dernière cellule non vide cette colonne
'retourne le numéro de ligne de cette dernière cellule non vide
'si la colonne est entirement vide, alors 0 est renvoyé
'doit fonctionner avec ou sans une structure de type tableau
'doit fonctionner avec ou sans filtrage
Dim der1 As Long, der2 As Long, x
On Error Resume Next
x = 9E+99: der1 = Application.WorksheetFunction.Match(x, xrg(1, 1).EntireColumn, 1)
x = String(255, Chr(255)): der2 = Application.WorksheetFunction.Match(x, xrg(1, 1).EntireColumn, 1)
If der2 > der1 Then DerLigne = der2 Else DerLigne = der1
On Error GoTo 0
End Function