Erreur d'incompatibilité

Bonjour,

je souhaite trouver la date qui correspond à la première apparition d'un jour "j" après une date donnée. Un exemple pour simplifier:
Supposant que la date est le 11/07/2016 , je veux trouver avec un code VBA ou une fonction excel, le premier jeudi,par exemple, qui viens après cette date .
J'ai essayé avec une boucle Do... While mais une erreur d'incompatibilité apparait .
La ligne est:

 Loop While [VLOOKUP(RC[-9],Clients!C[-13]:C[22],MATCH(WEEKDAY(RC[8],1),Clients!R1C31:R1C36,1)+30,0)="YES"]

Ceci est tout le code:

Sub Macro1()
'
' Macro1 Macro
'

Do
    ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC[-9],Clients!C[-13]:C[22],MATCH(WEEKDAY(RC[8],1),Clients!R1C31:R1C36,1)+30,0)=""NO"",RC[1],RC[1]+1)"
    Range("N2").Select
    Loop While [VLOOKUP(RC[-9],Clients!C[-13]:C[22],MATCH(WEEKDAY(RC[8],1),Clients!R1C31:R1C36,1)+30,0)="YES"]
    Selection.AutoFill Destination:=Range("N2:N24"), Type:=xlFillDefault
    Range("N2:N24").Select
End Sub

HELP PLEASE !!!!
merci d'avance :)

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.