Une boucle avec condition permet de repérer automatiquement les parcelles dont le taux d'humidité du sol est trop bas, à partir d'une colonne de mesure relevée par capteur ou saisie manuelle.

Sub IdentifierParcellesIrrigation()
    Dim i As Integer
    Dim compteurUrgences As Integer
    compteurUrgences = 0

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

    MsgBox compteurUrgences & " parcelle(s) à irriguer en urgence"
End Sub

Seules les parcelles dont la colonne C (taux d'humidité en %) descend sous 20% sont comptées comme urgentes — un seuil facilement ajustable selon le type de culture et la saison.

À vous de jouer : adaptez cette macro pour distinguer un seuil "à surveiller" (20 à 30%) d'un seuil "urgent" (moins de 20%).