Bonjour à tous

j'ai dans une colonne B une liste de titres de différentes publications, dont certains contiennent le mot "SWOT". J'aimerais à chaque fois qu'apparaît ce mot dans un titre lui attribuer un id type particulier (par exemple 1) dans une colonne appelée id-type(=colonne A)

J'ai essayé le code suivant mais ça ne marche pas du tout. On dirait que le logiciel ne repère pas le mot SWOT dans la colonne B et attribue 1 indifféremment dans la colonne A. J'ai essayé avec et sans boucle. Est-ce que qqn peut m'aider ? Merci d'avance. Hélène

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub swot()
'
' swot Macro
 
Dim*Trouve*As*Range,*PlageDeRecherche*As*Range
Dim*Valeur_Cherchee*As*String
 
Set PlageDeRecherche = Sheets("Feuil1").Range("B2:B7")
Valeur_Cherchee = "SWOT"
Set Trouve = PlageDeRecherche.Cells.find(what:=Valeur_Cherchee, LookAt:=xlWhole)
For i = 2 To 7
If Trouve Is Nothing Then
Sheets("Feuil1").Range("A2:A7").Value = 1
Else
 
Sheets("Feuil1").Range("A2:A7").Value = 2
End If
Next i
End Sub