Bonjour voici mon code et j'ai une erreur de d'exc

Bonjour,

'***************************************
'* Remplissage de la liste des mesures *
'***************************************
For Nb_BS = 1 To Tab_BS(0)
For c = 10 To Nbc_Ms - 1
If MS(2, c) = Tab_BS(Nb_BS) Then
For l = 3 To nbl_ms

'*******************************************************
'* La table des BS contient l'indice qui permet de les *
'* repérer dans la table des MS (colonnes) *
'*******************************************************
If ((MS(l, c) And Critere_Secu) = Critere_Secu) And _
(Tab_MS(CInt(Right(MS(l, 1), 2))) = 0) Then
Tab_MS(CInt(Right(MS(l, 1), 2))) = 1
Lig_cible = Lig_cible + 1
index = index + 1
Range(Cells(Lig_cible, 1), Cells(Lig_cible, 1)).Value = index
Range(Cells(Lig_cible, 2), Cells(Lig_cible, 2)).Value = MS(l, 1)
Range(Cells(Lig_cible, 3), Cells(Lig_cible, 3)).Value = MS(l, 2)
Range(Cells(Lig_cible, 4), Cells(Lig_cible, 4)).Value = ""
If update = True Then
For i = 3 To fin_Ligne_MES - debut_Ligne_MES + 3
If Tab_MC(i, 2) = MS(l, 1) Then _
Range(Cells(Lig_cible, 4), Cells(Lig_cible, 4)).Value = Tab_MC(i, 4)
Next i
End If
Range(Cells(Lig_cible, 5), Cells(Lig_cible, 6)).Merge
Range(Cells(Lig_cible, 5), Cells(Lig_cible, 6)).Value = MS(l, 4)
Range(Cells(Lig_cible, 7), Cells(Lig_cible, 7)).Value = MS(l, 5)
Range(Cells(Lig_cible, 8), Cells(Lig_cible, 8)).Value = MS(l, 6)
Range(Cells(Lig_cible, 9), Cells(Lig_cible, 9)).Value = MS(l, 7)
End If
Next l
End If
Next c
Next Nb_BS