une autre question svp est ce que vous pouvez m'expliquer cette partie :
If .[B5] = "" Then Exit Sub
Set c = Sheets("DEVIS").Cells.Find(Replace(.[B5], "_", "*"), , xlValues, xlPart)
If c Is Nothing Then Exit Sub
Do
Set c = c(2, 1)
If c.Interior.ColorIndex <>...