Sub MEP()
Dim i As Long
For i = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step -1
If Not Cells(i, 2) Like "*Mur*" And Cells(i, 8) Like "*Fenêtre*" Or Not Cells(i, 2) Like "*Mur*" And Cells(i, 8) Like "*Vide*" Then Cells(i, 2).Select
ActiveCell.FormulaR1C1 = " Mur 10"
Next i
End Sub