Ne rentre pas dans ma boucle for

Bonjour =E0 tous

J'ai encore besoin de vous j''ai un probl=E8me mon programme ne
rentre jamais dans ma boucle for et me cr=E9e une erreur type 424 objet

Je pense que ca doit venir de mes objets rg mais je ne sais pas la
corriger je vous remerci encore
Yohann

Cordialement

Voici mon code



>Sub Worksheet_Change(ByVal Target As Range)
>Dim Rg As Range, C As Range, Rg1 As Range, Rg2 As Range, Rg3 As Range
>Dim j, k, l
>j =3D 1
>k =3D 1
>l =3D 1
>Dim i



>Set Rg1 =3D Intersect(Target, Range("A:A")) ' objet rg1 plage intersection=
entre cellule active <et colonne A
>Set Rg2 =3D Intersect(Target, Range("K:K"))
>Set Rg3 =3D Intersect(Target, Range("L:L"))


> If Not Rg1 Is Nothing Then
>Set Rg =3D Rg1

>ElseIf Not Rg2 Is Nothing Then
> Set Rg =3D Rg2

>ElseIf Not Rg3 Is Nothing Then
> Set Rg =3D Rg3



> ElseIf Not Rg Is Nothing Then Exit Sub
> Application.EnableEvents =3D False
>End If

> For Each C In Rg
> If C.Column =3D 1 Then
> 'Copie dans la colonne Pays les valeur correspondant au
crit=E8re
> [BK2:BK65535].ClearContents 'efface colonne BK
> For i =3D 4 To [BA65536].End(xlUp).Row
> If Cells(i, 53) =3D C.Offset(0, 0).Value Then
> j =3D j + 1
> Range("BJ" & j) =3D Range("BB" & i).Value
> End If
>Next
> Range("BJ1").Select
>Columns("BJ:BJ").AdvancedFilter Action:=3DxlFilterCopy,
CopyToRange:=3DRange("BK1" _
> ), Unique:=3DTrue
> ElseIf C.Column =3D 11 Then
> [BL2:BL65535].ClearContents
> 'Copie dans la colonne name les valeur
> 'correspondant au crit=E8re
> For i =3D 1 To [BB65536].End(xlUp).Row
> If (Cells(i, 54) =3D C.Offset(0, 0).Value _
> And Cells(i, 53) =3D ActiveCell.Offset(0, -1).Value)
Then
> k =3D k + 1
> Range("BL" & k) =3D Range("BC" & i).Value
> End If
> Next
>End Sub