Bonjour dann , le forum,
Un essai: .....code à placer dans le module de la feuille....
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Unload Usfsucres
Usfsucres.Show 0
End If
End Sub
Cordialement,
EDIT: petit correctif....On rafraichi uniquement si l'usf est ouvert...
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
If Usfsucres.Visible = True Then
Unload Usfsucres
Usfsucres.Show 0
End If
End If
End Sub
Prends en compte la remarque de MFerrand (que je salue au passage, )