Mise à jour d'une fonction personnalisée

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte

For i = 2 To 11
If Cells(i, 5) = "" Then
ActiveSheet.Shapes("Ok" & i - 1).Visible = False
ActiveSheet.Shapes("Ko" & i - 1).Visible = False
Else
ActiveSheet.Shapes("Ok" & i - 1).Visible = Cells(i, 5) = Val(Cells(i, 2)) * Val(Cells(i, 4))
ActiveSheet.Shapes("Ko" & i - 1).Visible = Cells(i, 5) <> Val(Cells(i, 2)) * Val(Cells(i, 4))
End If
Next i

'Activate
Calculate
End Sub