Comparer valeur d'une variable avec cellule

Bonjour,
Je souhaite comparer la valeur d'une cellule avec une variable, si la valeur de la cellule est égale à ma variable (texte) alors je me positionne sur 2 cellules de la même ligne, je les copies et les colles sur un autre classeur.
Si la valeur de la cellule n'est pas la même que la variable, je passe à la cellule suivante (dans la même colonne) et fait le même test jusqu'à la fin de la colonne ou une limite fixée par moi même.
J'ai commencé comme ça mais ça marche pas !
Option Explicit
Dim vendeur, Code, Truc

Sub Statvendeur()

vendeur = InputBox("Quel Nom de vendeur ?", "Affichage du nom du vendeur")

Sheets("Résultat contrôle").Select
ChDir "H:\CSO\Vendeurs ciblés"
Workbooks.Open Filename:="H:\nom de mon répertoire\Vendeurs ciblés\Vendeurs ciblés mensuel.xls"
Range("D6").Select
If ("D6") = vendeur Then
Range("G6,J6").Select
Selection.Copy
Windows((vendeur) & ".xls").Activate
Sheets("Résultat contrôle").Select
Range("B104").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ElseIf ("C6") <> vendeur Then
Range("D7").Select
End If

End Sub

Merci par avance de votre aide !