Comparer automatiquement la récolte prévue en début de saison à la récolte effectivement obtenue permet de repérer rapidement les parcelles ayant sous-performé.

Sub DetecterEcartsRecolte()
    On Error Resume Next
    Dim i As Integer
    Dim compteurEcarts As Integer
    compteurEcarts = 0

    For i = 2 To 20
        If Cells(i, 3).Value < Cells(i, 2).Value * 0.8 Then
            compteurEcarts = compteurEcarts + 1
        End If
    Next i

    MsgBox compteurEcarts & " parcelle(s) en écart significatif de rendement"
End Sub

Une parcelle est considérée en "écart significatif" si sa récolte réelle (colonne C) est inférieure à 80% de la récolte prévue (colonne B) — un seuil de tolérance de 20% avant de déclencher une alerte. On Error Resume Next protège la boucle contre une cellule de mesure vide inattendue.

À vous de jouer : adaptez cette macro pour lister aussi les parcelles concernées, avec leur pourcentage d'écart exact.