Formule avec variable d'une InputBox

Bonjour à tous,

Je bloque sur quelque chose de stupide je pense. Je voudrais utiliser le résultat d'une InputBox (qui sera un mois sous forme de texte) et ensuite utiliser cette variable dans une formule de type NB.SI. Mais cela ne fonctionne pas.

Est-ce une erreur de syntaxe?

Merci d'avance pour votre aide.

Sub Macro1()

Dim Var1 As String

 Var1 = Application.InputBox("Month?", Type:=2)


    Range("D6").Select
    ActiveCell.FormulaR1C1 = "=COUNTIFS(CDP!C[-3],""&Var1&"",CDP!C[-2],""SEH"")"

End Sub