Private Sub Worksheet_Change(ByVal Target As Range)
Dim St As String
St = Target.Address
St = Replace(St, "$", "")
' on met en rouge et en gras les cellules modifiées : à adapter
With Sheets("Inra_Fnade").Range(St)
.Font.ColorIndex = 3
.Font.Bold = True
End With
End Sub