Récupération d'une variable via input box pour création de formule

Bonjour,

j'aimerai réutiliser une variable qui est saisie dans un inputbox.

1. Je demande le nom de la delivery = variable.

2. ma formule ensuite est simple. Si C2 = "BBB" alors je veux retourner la variable sinon vide.

Ma macro du fichier joint me retourne une erreur.

Quelqu'un peut 'il m'aider ?

Merci

bonjour El Blobo,

chr(34) = "

Sub test()
     Dim variable As String
     variable = InputBox("Enter a name for this delivery")
     Range("B2").Select
     Application.CutCopyMode = False
     ActiveCell.FormulaR1C1 = "=IF(RC[1]=" & Chr(34) & variable & Chr(34) & "," & Chr(34) & variable & Chr(34) & ","""")"
     DernLigneA = Range("A" & Rows.Count).End(xlUp).Row
     Selection.AutoFill Destination:=Range("B2:B" & DernLigneA), Type:=xlFillDefault
End Sub

Merci