Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.Run "MesMacros.xla!SaisieAutomatiqueSelectionChange", Sh, Target, Feuil3
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Application.Run "MesMacros.xla!SaisieAutomatiqueChange", Source, Feuil3
End Sub