Erreur d'exécution '9'

Sub macro_x()
    'Plan de charge Projet
    Dim i, j As Integer
    With Sheets("TDB Projet IQM_")
        For i = 3 To 315 Step 1
            If ((.Cells(i, 4) = "MC") Or (.Cells(i, 4) = "MVVS") Or (.Cells(i, 4) = "VC") Or (.Cells(i, 4) = "CUKPT1") Or (.Cells(i, 4) = "CUK")) And (.Cells(i, 1).Font.ColorIndex = 2) Then
                Sheets("Plan de charge Projet").Cells(i + 2, 1) = .Cells(i, 4)
            End If
        Next i
    End With
End Sub

Sub ccm2()
Dim lig As Integer, Liste(), Mot As String, lig2, test

    Application.ScreenUpdating = False
   Sheets("Plan de charge Projet").Range("A5:A320").ClearContents
   
    Liste = Array("", "MC", "MVVS", "VC") 'a compléter
    With Sheets("TDB projet IQM_")
        For lig = 3 To 317
            If .Cells(lig, "A").Font.ColorIndex = 2 Then
                Mot = .Cells(lig, "D")
                test = Filter(Liste, Mot, True)
                On Error GoTo vide
                 Sheets("Plan de charge Projet").Cells(lig + 2, "A") = test(0)
            End If
0:
        Next
    End With
    Sheets("Plan de charge Projet").Activate
    Exit Sub
vide:
    GoTo 0
End Sub