If Not Intersect(Target, [MVol1]) Is Nothing Then
Dim f, haut1 As Integer, haut2 As Integer, MVmax As Double, MVsup As Double
Set f = Application.WorksheetFunction
haut1 = f.Match(100, [Tableau2].Columns(1), 1)
MVmax = f.Index([Tableau2], haut1, 3) 'masse volumique correspondant à la concentration maximale (100%)
haut2 = f.Match([Gamma1], [Tableau2].Columns(1), 1)
MVsup = f.Index([Tableau2], haut2, 3) 'masse volumique correspondant à la concentration choisie
Target.NumberFormat = MFDecApVirg(Target.Value, 4, True, " g/mL") 'fonction permettant de faire automatiquement, selon certaines conditions, une mise en forme personnalisée des résultats qui apparaissent
If Target > MVmax Then
Clignotement [MVol1].Offset(0, -1) '********** curieusement, ne marche pas avec Target.Offset(0, -1) **********
Application.EnableEvents = False
Target = MVmax: Target.Select
Application.EnableEvents = True
Exit Sub
ElseIf Target > MVsup And Target <= MVmax Then
Target.Select
Clignotement [MVol1].Offset(0, -1) '********** curieusement, ne marche pas avec Target.Offset(0, -1) **********
End If
Target.Select 'maintient la sélection de la cellule après qu'elle ait été validée
End If