Pas trouvé de code approchant dans les 3 modules...
après avoir inséré "M16" (sans les guillemets) en B2 de la feuille FT ,et rajout d'un commandbutton activeX sur la feuille FT avec le code suivant:
Private Sub CommandButton1_Click()
Dim Liste_Appui As Range, X As String, Incrementation_Ligne As Integer
Set Liste_Appui = Worksheets("FT").Range("V1:V50") 'J'ai rentrer "MI6" en V1'
Incrementation_Ligne = 2
X = Worksheets("FT").Cells(Incrementation_Ligne, 2).Value ' valeur de la cellule B2 = MI6'
If WorksheetFunction.CountIf(Liste_Appui, X) > 0 Then
MsgBox "OK"
Else
MsgBox "NOK"
End If
End Sub
on a bien le message : OK
A+