Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Il faut les regrouper dans une seule procédure, donc plutôt :
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = [B3] Then End
If [C3] = [F7] Then End
If Target.Address = "$A$1" Then [B3] = [A1]
If Target.Address = "$B$3" Then [A1] = [B3]
If Target.Address = "$F$7" Then [C3] = [F7]
If Target.Address = "$C$3" Then [F7] = [C3]
End Sub