Erreur 424

Bonjour!

J'ai créé le code suivant

Public Sub Code_Ref()
Dim Ws As Worksheet
Dim LgRef&

LgRef = Sheets("Ref NCP 2011").Range("A65536").End(xlUp).Row
 For Each Ws In ThisWorkbook.Worksheets(Array("Feuil3", "RCSV"))
  Dim Lg&
   Lg = Ws.Range("C65536").End(xlUp).Row
    For Each c In Ws.Range("C6:C" & Lg)
     For Each a In Sheets("Ref NCP 2011").Range("A2:A" & LgRef)
      If c.Offset(0, 3).Value = a.Value Then
       c = a.Offset(0, 1)
      ElseIf c.Offset(0, 3).Value = "" Then
       c = c
      End If
     Next
    Next
  Next

End Sub

En gros pour chaque worksheet de ma liste, je prend la colonne C, si la colonne F ( donc C+3) contient un code, je vais chercher la référence correspondant dans Ref NCP 2011 où les codes sont listé dans la colonne A puis j'associe à ma case de la colonne C la valeur de référence correspondante ( qui se situe dans la colonne B du worsksheet de Ref NCP 2011),

En revanche lorsque la case de la colonne F n'a pas de code, je laisse la case identique à elle même.

Cependant lorsque je lance ma procédure, j'ai une erreur 424, Objet requis.

En débogage pas à pas détaillé ça coince entre les 2 premiers Next.

Je suis perdu.

Si vous voyez où j'ai pû me gourer, merci d'avance!

J'ai essayé d'améliorer mon code

Public Sub Code_Ref()
Dim Ws As Worksheet
Dim LgRef&

LgRef = Sheets("Ref NCP 2011").Range("A65536").End(xlUp).Row
 For Each Ws In ThisWorkbook.Worksheets(Array("RCSA", "RCSV"))
  Dim Lg&
   Lg = Ws.Range("C65536").End(xlUp).Row
    For Each c In Ws.Range("C6:C" & Lg)
     If c.Offset(0, 3).Value = "" Then
       c = c
     ElseIf c.Offset(0, 3).Value <> "" Then
      For Each a In Sheets("Ref NCP 2011").Range("A2:A" & LgRef)
       If a.Value = "" Then
        a = a
       ElseIf a.Value <> "" Then
        If c.Offset(0, 3).Value = a.Value Then
          c = a.Offset(0, 1)
        End If
       End If
     Next
    End If
   Next
  Next

End Sub

Mais j'arrive toujours au même problème ... Je vois pas du tout pourquoi il me demande un Objet requis.

Bonjour

Afin de tester ton fichier est indispensable

Bonjour,

Voilà mon fichier.

cdlt

Bonjour

A voir si c'est le résultat que tu attendais

C'est Parfait,

Merci beaucoup.