Exécuter macro si

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim plage As Range 'déclare la variable plage
Dim cel As Range 'déclare la variable cel
 
Set plage = Range("B30:B35") 'définit la variable plage
 
'si l'édition se fait ailleurs que dans la plage ou I12, sort de la procédure
If Application.Intersect(Target, plage) Is Nothing And Target.Address <> "$I$12" Then Exit Sub
 
For Each cel In plage.Offset(0, -1) 'boucle sur les cellules contenant les formules (colonne A)
 
    If cel.Value = Range("I12") Then 'si la valeur de la cellule est égale à celle de I12
        Call nombreAtteint 'lance la macro
        Exit For 'sort de la boucle
 
    End If 'fin de la condition
 
Next cel 'prochaine cellule de la plage
 
End Sub