Détecter une valeur donnée dans une plage en vba

Ok merci. Mais le problème c'est que MFC est très fragile. Le fait de changer format (Bordure par exemple) des cellules concernées. Leurs MFC s'effacent.

Comment faire pour protéger la MFC d'une plage de cellules.

Comment faire pour protéger la MFC d'une plage de cellules?
La MFC s'écrase lorsqu'on passe par clique bouton droit de la sourie--->format des cellules-->Bordure.
Mais Bordure direct du ruban, ne l'écrase pas.

Si je peux avoir un code vba c'est plus sûr. Merci bcp

J'ai utilié ce code mais ça se bloque au niveau de : If c = Cells( i , 1) Then

With Worksheets("Preparation Emplois").Range("M5:T7")
For i = 10 To 14
For j = 13 To 20
Set c = .Find(Cells(i, 1), LookIn:=xlValues)

If c = Cells( i , 1) Then ' ça ce bloque ici'


Cells(i, j).Interior.ColorIndex = 43
End If
Next j
Next i
End With

Mais s'il s'agit d'une seule cellule, ça marche
Çàd: Cells(10 , 1) au lieu de Cells( i , 1)

à condition que la valeur de Cells(10,1) est trouvée dans la plage. Si non il réclame erreur.

Y'a t-il une correction s'ils vous plait ?

Ok merci. j'ai trouvé la solution

With Worksheets("Preparation Emplois").Range("M5:T7")
For i = 10 To 144
For j = 13 To 20
Set c = .Find(Cells(i, 1), LookIn:=xlValues)
If c Is Nothing Then Cells(i, j).Interior.ColorIndex = 0
Next j
Next i
End With