Je pense que c'est pas cette macro qui me ralentis le classeur, elle se trouve dans Thisworkbook
Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("C4:AN42")) Is Nothing Then
For Each cell In Target
If Range("A83") = cell.Value Then...