Remplacer la formule d'une cellule en VBA

Bonjour a tous

J aimerai remplacer la formule qui est dans la cellule F16 en VBA si c'est possible dans le fichier joint.

Merci beaucoup

Bonjour,

Une proposition :

Sub Somme()
Dim t As Double, x As Double
    With ActiveSheet
        t = Application.Sum(.Cells(9, 4).Resize(, 3))
        Select Case t
            Case 3: x = 20
            Case 6: x = 30
            Case 9: x = 50
            Case Else: x = -5
        End Select
        If .Cells(13, 6).Value <= 0 Then
            MsgBox ("No Coins")
        Else
            .Cells(13, 6).Value = .Cells(13, 6).Value + x
        End If
    End With
End Sub

Merci beaucoup

Super çà marche

Cordialement

Bonjour Jean-Eric

J'ai encore besoin de vous.

dans votre code, quand il y a 3 image différentes cela ajoute 30.

Ensuite, j'ai rajouter une image en U19

J'aimerai ajouter cette image pour que lorsqu'elles sont a trois cela ajoute 80

Pourriez-vous ajouter quand il y à une couronne sur 3 dans n'importe quelle case marque 30 de plus, et quand il y a 2 couronnes ajouter 40

Un grand merci a vous

Ah j'ai oublié de vous demander aussi d'afficher le gain quand il y en a trois dans les cellules K4 a K7

encore bien merci