Function DerCellNonVide(xplage As Range) As Range
Dim i&, j&
On Error Resume Next
i = Application.Match(999 ^ 9, xplage.Columns(1), 1)
j = Application.Match(String(255, "z"), xplage.Columns(1), 1)
On Error GoTo 0
If i + j <> 0 Then Set DerCellNonVide = xplage.Columns(1).Cells(IIf(i > j, i, j), 1)
End Function