Bonjour à tous

Actuellement j'insère cette formule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=STXT(D12;1;SI(SIERREUR(CHERCHE(" ";D12;1)-1;"Erreur")="Erreur";NBCAR(D12);CHERCHE(" ";D12;1)-1))
Par le biais d'une macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ActiveCell.FormulaR1C1 = _
        "=MID(RC[-2],1,IF(IFERROR(SEARCH("" "",RC[-2],1)-1,""Erreur"")=""Erreur"",LEN(RC[-2]),SEARCH("" "",RC[-2],1)-1))"
J'essaye de comprendre comment ne plus insérer la formule mais vers "la fonction" dans la macro.
J'ai donc créer une p'tite macro de test :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Valeure_reference As String
Dim Vz As Integer
Vz = 12
 
Valeure_reference = mid(cells(vz, 4),1, if(IfError(Search(" ", Cells(Vz, 4), 1) - 1, "Error") = "Error", len(cells(vz, 4)), Search(" ", Cells(Vz, 4), 1) - 1))
 
MsgBox Valeure_reference
 
End Sub
Cependant elle ne compile pas :
"Erreur de compilation : Erreur de syntaxe"
Merci par avance