Bonjour,
Aprés les divers réponses recues, je cale à nouveaux sur ma formule.
La macro se lance une seule fois et au nouveaux changement de ma cellule plus rien
Ma formule :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("AW25"), Target) Is Nothing Then
If Range("$A$4").Value = Range("$AW$25").Value Then
Call Son4
End If
End If
End Sub
Merci de votre aide