Rechercher des éléments dans une colonne VBA

Bonjour,

Je souhaite faire un programme qui :
- cherche dans une colonne un texte

si elle trouve ce texte, alors elle renvoie la valeur qui est dans la cellule sur la même ligne mais deux colonnes plus loin (ex : je trouve en A1 et je mets dans une autre case la valeur en C1)

si elle ne trouve pas du tout la valeur elle envoie un msg d'erreur

Voilà ce que j'ai commencé à faire, mais bon vu que je débute et que j'ai essayé de faier le code toute seule ca ne colle pas!!

Sub Recherche_cible()
Dim cible As CellFormat
i = 1
Article = Workbooks("Macro tps de cycle.xls").Worksheets("Détails").Range("B4")
MsgBox = Article
derniereligne = Range("A4").End(xlDown).Row

For i = 1 To derniereligne
If Cells(i, 1) = Article Then
cible = Cells(i, 3)
Worksheets(Article).Range("I3") = cible
End If

Next i

If Workbooks("Macro SCE2 amont.xls").Worksheets(Article).Range("I3") Is Nothing Then
MsgBox "Erreur l'article n'est pas référencé, veuillez rajouter sa moyenne de temps de passage sur l'onglet Cible"

End If


End Sub

Merci de me répondre