Cette leçon combine une constante, la désactivation du rafraîchissement d'écran et un export PDF pour générer automatiquement le rapport de fin de saison à partager avec les partenaires de l'exploitation.

Sub GenererRapportRecolteSaisonnier()
    Const DOSSIER_RAPPORTS As String = "C:\Recoltes\"
    Application.ScreenUpdating = False

    Dim i As Integer
    For i = 2 To 25
        If Cells(i, 3).Value > Cells(i, 2).Value Then
            Cells(i, 3).Font.Color = RGB(0, 130, 0)
        End If
    Next i

    Worksheets("Synthèse").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DOSSIER_RAPPORTS & "rapport_recolte.pdf"

    Application.ScreenUpdating = True
    MsgBox "Rapport exporté"
End Sub

La boucle met en évidence en vert les parcelles ayant dépassé leur objectif avant l'export, pendant que ScreenUpdating = False évite un clignotement visible sur 25 lignes ; la constante DOSSIER_RAPPORTS centralise le chemin de destination du fichier final.

À vous de jouer : adaptez cette macro pour exporter aussi un second onglet "Détail par culture" dans un fichier PDF séparé.