Salut Patrick,
Cette procédure placée dans "ThisWorkBook" devrait marcher :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Or Sh.Name = "Feuil3" Then
If Target.Address = "$A$1" Then
If Feuil1.Range("A1") = Feuil3.Range("A1") Then
Feuil2.Range("A1") = Feuil3.Range("B1")
Else
Feuil2.Range("A1") = ""
End If
End If
End If
End Sub
A+
LN