Erreur 424 objet requis

Bonjour,

Je suis en train de faire des tests sur un petit bout de code VBA et je me retrouve confrontée à un problème, l'erreur 424.

Le code est le suivant :

Sub NOM_FAMILLE()

Dim CPT As Long
Dim LIGNE As Long

LIGNE = 0
LIGNE = Application.WorksheetFunction.CountA(Range("A:A")) + 1
CPT = 2

Range("A:B").NumberFormat = "@"

Do While CPT < LIGNE

    Cells(CPT, 2).Select
    ActiveWoorksheet.Cells(CPT, 2).FormulaR1C1 = "=CONCATENATE(""DEP :"",LEFT(RC[-1],(FINDB(""/"",RC[-1])-1)))" 'Erreur 424

    CPT = CPT + 1
Loop

End Sub

Dans l'idéal je voudrais extraire les noms de familles, séparés par un "/" des prénoms, qui sont stockés en colonne A et les mettre en colonne B. Tout cela sans savoir de combien de caractère se compose le nom de famille.

Je ne comprend pas , est-ce que c'est parce que je ne mets pas le bon nombre de " ?

Merci,

Bonjour

Si tu joignais ton fichier, il serait plus facile de chercher ce qui ne va pas...

Bye !

Bonjour,

Merci de votre réponse, en fait j'ai trouvé la solution toute seule, il faut mettre le nom des feuilles avant RC[-1]

Type :

 Feuil1!RC[-1]

et enlever le o de trop à Worksheet

Merci