Sub calcul()
Select Case Range("D21")
Case Is = "Sous total REG Prp Age"
With ActiveSheet
Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"
Else
Select Case Range("D21")
Case Is = "Sous total REG Prp Permis"
With ActiveSheet
Case .Range.Calculate.Range("F20").Formula = "(F19 * E21) + F19"
End If
End Sub
j'ai essayer cette formule mais ca marche pas, je pense qu'il faut la modifié