Function ColTabÀ(ByVal PlageDép As Range, Optional ByVal PlagExam As Range = Nothing) As Range
Dim F As Worksheet, LMax As Long, NbL As Long
On Error GoTo RienTrouvé
If PlagExam Is Nothing Then Set F = PlageDép.Worksheet: Set PlagExam = F.UsedRange
LMax = PlagExam.Find("*", PlagExam.Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious, False, False).Row
On Error GoTo 0
NbL = LMax - PlageDép.Row + 1: If NbL < 1 Then GoTo CEstToutVide
Set ColTabÀ = PlageDép.Resize(NbL)
Exit Function