Private Sub Worksheet_Change(ByVal Target As Range)
'Ecriture de la Valeur Maxi dans la cellule A2 de la feuille 2
If Sheets("Feuil1").Range("A1").Value > Sheets("Feuil2").Range("A2").Value Then
Sheets("Feuil2").Range("A2").Value = Sheets("Feuil1").Range("A1").Value
End If
'Ecriture de la Valeur Mini dans la cellule B2 de la feuille 2
If Sheets("Feuil1").Range("A1").Value < Sheets("Feuil2").Range("B2").Value Or Sheets("Feuil2").Range("B2").Value = "" Then
Sheets("Feuil2").Range("B2").Value = Sheets("Feuil1").Range("A1").Value
End If
End Sub