Excel VBA

Bonjour,

J'ai le code ci-dessous qui marche très bien sauf pour 1 situation. Explication:
Si la valeur "servie" n'est pas reneigné dans aucune des lignes, alors le code bloque au niveau de la ligne "ReDim tablo(nbre, dercol)"

Quelqu'un peut-il me dire pourquoi????? et résoudre ce problème !!!!!

Option Base 1
Option Explicit
Const valeur As String = "servie"
Private Sub CommandButton1_click()
Dim dercol As Byte
Dim lig As Long, nbre As Long, cptr As Long, cptr2 As Byte
Dim tablo, tablo_lig
Dim ligvide As Long
dercol = 18
nbre = Application.CountIf(Sheets("Origine").Columns(18), valeur)
ReDim tablo(nbre, dercol)
ReDim tablo_lig(nbre)
If nbre > 0 Then
With Sheets("Origine")
lig = 1
For cptr = 1 To nbre
lig = .Columns(18).Find(valeur, .Cells(lig, 18), xlValues).Row
For cptr2 = 1 To dercol
tablo(cptr, cptr2) = .Cells(lig, cptr2).Value
Next
tablo_lig(cptr) = lig
Next
Application.ScreenUpdating = False
For cptr = nbre To 1 Step -1
.Rows(tablo_lig(cptr)).Delete
Next
End With
With Sheets("Archives")
ligvide = .Range("C65536").End(xlUp).Row + 1
.Cells(ligvide, 1).Resize(nbre, dercol).Value = tablo
End With
End If


Unload Menu
Sheets("Archives").Select
End Sub


Merci d'avance