Validation montant suivant tableau

Const PLAGE As String = "A1:K10"
Const COTES As String = "Cotations"

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim R As Range
Dim var
Dim A$
Dim B$
Dim i&
Dim ligne&
Dim colonne&
Set R = Sheets(COTES).Range(PLAGE)
var = R
A$ = UCase(Sh.[b1])
'--- Supprime les espaces ---
For i& = 1 To Len(A$)
  If Mid(A$, i&, 1) <> Chr(32) Then B$ = B$ & Mid(A$, i&, 1)
Next i&
'--- Trouve la ligne ---
For i& = 1 To UBound(var, 1)
  If UCase("Type" & Trim(var(i&, 1))) = B$ Then
    ligne& = i&
    Exit For
  End If
Next i&
'--- Trouve la colonne ---
For i& = 1 To UBound(var, 2)
  If var(2, i&) = Sh.Name Then
    colonne& = i&
    Exit For
  End If
Next i&
'--- Si différence l'affiche ---
If ligne& > 0 And colonne& > 0 Then
  If Sh.[r3].Value <> var(ligne&, colonne&) Then
    MsgBox "Différence" & vbCrLf & _
      Sh.Name & " R3 = " & Sh.[r3] & vbCrLf & _
      COTES & " = " & var(ligne&, colonne&)
    
    '### votre traitement ###
    
  End If
End If
End Sub

[COLOR="Red"]Private Sub Workbook_Open()[/COLOR]
Const PLAGE As String = "A1:K10"
Const COTES As String = "Cotations"
[COLOR="red"]End Sub[/COLOR]

Const PLAGE As String = "A1:K10"
Const COTES As String = "Cotations"