[COLOR="DarkSlateGray"][B]Sub Color_Heure(Plage As Range, Coul As Long, Effet As String) 'bqtr
'Colore les horaires
Dim k As Integer, cell As Range, y As Integer
For Each cell In Plage
If cell <> "" Then
For y = 1 To Len(cell)
If Mid(cell, y, 1) = ":" Then
With cell.Characters(y - 2, 5).Font
.FontStyle = Effet
If Asc(Mid(cell & Chr(10), y + 3, 1)) = 10 Then
.ColorIndex = 3
Else
.ColorIndex = Coul
End If
End With
End If
Next
End If
Next
End Sub[/B][/COLOR]