Re,
Malheureusement ... oui ... c'est possible ...
Sub Actualisation()
Dim c As Range
Dim rng As Range
' Ajuster K1000 à ta dernière ligne ...
Set rng = Feuil1.Range("K2:K1000")
For Each c In rng
If c.Font.Bold And c.Font.Color = RGB(0, 0, 0) Then
c.Value = c.Offset(-1, 0).Value * (1 + Feuil1.Range("N2").Value)
End If
Next c
MsgBox "Actualisation Effectuée ...!"
End Sub
P.S. Avec une feuille de plus de 1'000 lignes ... tu as intérêt à être ULTRA DISCIPLINE ... !!!
car un seul oubli .. et l'actualisation ne fonctionnera pas pour cet oubli ...