Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("type").Value = H7 And Range("solde_crediteur").Value <= 20 Then
MsgBox "opération impossible", vbRetryCancel + Apparence + TypeDeBox, "non"
Select Case Reponse
Case vbRetry
Case vbCancel
End Select
End If
If Range("type").Value = H8 And "solde_crediteur" <= 20 Then
MsgBox "opération impossible", vbRetryCancel + Apparence + TypeDeBox, "non"
Select Case Reponse
Case vbRetry
Case vbCancel
End Select
End If
End Sub