Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range, a, i%
Set cel = [G8] 'à adapter
a = Array("Solde comptable au ", "Solde indicatif au ", "Solde disponible au ", "Montantant solde indisponible au ", "")
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
For i = 0 To UBound(a)
If i < 4 Then Cells(i + 1, 1) = a(i) & Format(Date - 1, "dd/mm/yyyy : ") & IIf(i = 3, "0,00", Format(cel, "#,###.00"))
If InStr(Cells(i + 1, 1), "-") Then
With Cells(i + 1, 1).Characters(InStr(Cells(i + 1, 1), "-")).Font
.Bold = True 'gras
.ColorIndex = 3 'rouge
End With
End If
Next
Application.EnableEvents = True 'réactive les évènements
End Sub