Bonjour je voudrais extraire de la colonne F et alimenter la colonne D et E

voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
    Sheets("A VENIR").Activate
    dernligne = Cells(Rows.Count, 1).End(xlUp).Row
    For c = 2 To dernligne
    Cells(c, 4) = WorksheetFunction.Left(Cells(c, 6), Find("/", Cells(c, 6)) - 1)
    Cells(c, 5) = WorksheetFunction.Right(Cells(c, 6), CountA(Cells(c, 6)) - Search("/", Cells(c, 6), 1))
    Next
il me dit que la syntaxe de la ligne 5 est erroné sur la commande find

message "erreur de compliation sub ou fonction non définie"

Pouvez vous me dire pourquoi ?