Bonjour,
Le code est sensiblement le même :
Sub MEF()
For Each WS In Worksheets
For L = 2 To WS.Cells(WS.Rows.Count, 4).End(xlUp).Row
If WS.Cells(L, 4) Like "*--*" Then
With WS.Cells(L, 4).Characters(Start:=InStr(1, WS.Cells(L, 4), "--"), Length:=Len(WS.Cells(L, 4))).Font
.FontStyle = "Gras"
.Color = vbRed
End With
Else
WS.Cells(L, 4).Characters.Font.FontStyle = "Normal"
WS.Cells(L, 4).Characters.Font.Color = vbBlack
End If
Next L
Next WS
End Sub
Ergotamine