Cette leçon combine une constante, la désactivation du rafraîchissement d'écran et un export PDF pour automatiser entièrement la génération du bilan mensuel à partager avec la direction.

Sub GenererBilanMensuel()
    Const DOSSIER_BILANS As String = "C:\Bilans\"
    Application.ScreenUpdating = False

    Dim i As Integer
    For i = 2 To 50
        If Cells(i, 3).Value < 0 Then
            Cells(i, 3).Font.Color = RGB(200, 0, 0)
        End If
    Next i

    Worksheets("Bilan").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DOSSIER_BILANS & "bilan_mensuel.pdf"

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

La boucle met en évidence en rouge les montants négatifs avant l'export, pendant que ScreenUpdating = False évite un clignotement visible sur 50 lignes ; la constante DOSSIER_BILANS centralise le chemin de destination du fichier final.

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