Atteindre la premiere cellule vide d'une colo

Bonjour,
Mon problème est dans le titre.
Voici la macro que j'ai entrée et qui me cause une erreur sur la dernière ligne avant le End Sub (En gras):

Sub triDates()
'
' triDates Macro
'

'
Range("A3:H100").Select
ActiveWorkbook.Worksheets("DEBITS CREDITS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DEBITS CREDITS").Sort.SortFields.Add Key:=Range( _
"B3:B100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DEBITS CREDITS").Sort
.SetRange Range("A3:H100")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With Sheets("DEBITS CREDITS")
Set plage = Range("B3:B" & Cells(Rows.Count, 1).End(xlUp).Row)
plage.SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
End With
Quelqu'un peut me dire ce qui ne va pas?
Merci d'avance
End Sub