Private Sub Worksheet_Change(ByVal Target As Range)
'If Not Intersect(Target, [D2,F2]) Is Nothing Then Worksheet_Activate 'le code de Worksheet_Activate n'existe pas !!!
Application.EnableEvents = False
With [H13].Resize(100)
.FormulaR1C1 = "=IF(ISNUMBER(RC7),IF(RC7<5,""Très faible"",IF(RC7<8,""Faible"",IF(RC7<10,""Insuffisant"",IF(RC7<12,""Passable"",IF(RC7<14,""Assez-bien"",IF(RC7<16,""Bien"",IF(RC7<18,""Très bien"",""Excellent""))))))),"""")"
.Value = .Value 'supprime les formules
End With 'à ne pas oublier...
Application.EnableEvents = True
End Sub