Sub ThauTheme()
Dim OF As Worksheet 'déclare la variable OF (Onglet Field name)
Dim OB As Worksheet 'déclare la variable OB (Onglet Base)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim R As Range 'décalre la variable R (Recherche)
Set OF = Worksheets("field name") 'définit l'onglet OF
Set OB = Worksheets("base") 'définit l'onglet OB
DL = OF.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet OF
For I = 2 To DL 'boucle des lignes 2 à DL
'définit la recherche R (recherche dans la ligne 1 de l'onglet OB la valeur entière de la cellule de la boucle
Set R = OB.Rows(1).Find(OF.Cells(I, 1).Value, , xlValues, xlWhole)
If Not R Is Nothing Then 'condition : s'il existe au moins une occurrence trouvée
OB.Columns(R.Column + 1).Insert 'insère une colonne avant la colonne de la première occurence trouvée plus une
OB.Columns(R.Column + 1).Insert 'insère une colonne avant la colonne de la première occurence trouvée plus une
End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub