Sub test()
Dim Valeur, Cellule, Lig, Texte(1 To 100)
Dim i As Integer, DerniereLigne As Integer, Ligne As Integer
'On va inscrire le texte que vous souhaitez mettre dans la colonne H
Texte(1) = "Texte si on tombe sur Test1"
Texte(2) = "Texte si on tombe sur Test2"
Texte(3) = "Texte si on tombe sur Test3"
'Vous pourriez rajouter ici le nombre de variables que vous désirez
'Il s'agit de trouver la dernière ligne de la colonne A
DerniereLigne = Cells(65536, 1).End(xlUp).Row
'On va faire une boucle pour chacun des mots de recherche de la colonne A
For i = 1 To DerniereLigne
Valeur = Cells(i, 1).Value
With Range("D1:D65536") 'On va faire une recherche dans la colonne D
Set Lig = .Find(Valeur, LookIn:=xlValues, LookAt:=xlWhole)
If Not Lig Is Nothing Then
PremierResultat = Lig.Address
Do 'On va faire une grosse loop sur la colonne D pour trouver chacun des emplacements
'ou se trouve le mot de recherche de la colonne A. À chaque fois, on mettera dans la
'colonne A le texte correspondant
Cells(Lig.Row, 8).Value = Texte(i)
Set Lig = .FindNext(Lig) 'Cherche le prochain
Loop While Not Lig Is Nothing And Lig.Address <> PremierResultat 'On continu à chercher
'tant qu'on trouve le mot de la colonne A
End If
End With
Next i
End Sub