Mise en forme cellules

Bonjour,

Je suis debutante en VBA , et je dois créer une macro qui permettra de mettre en forme mes cellules qui sont chargés,c'est a dire encadrer le contour de mes cellulles.

j'ai creé cette macro qui me le fait bien quand je defini mes plages que je souhaite encadrer.

Sub encadrer_Contour()
Dim plage1 As Range
Dim plage2 As Range
Set plage1 = Application.Union(Range("A28:I28"), Range("A42:I42"))
plage1.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
Set plage2 = Application.Union(Range("A29:I40"), Range("A43:I60"))
plage2.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
End Sub

Maintenant mon probleme et que:Je souhaiterai faire un code qui tiendra compte des changements et modification des cellules car c'est un tableau qui change en fontion des mises a jour je vous joint le fichier en question pour mieux comprendre.

Merci pour Votre aide.

Bonjour Mria et

Sub encadrer_Contour()
Dim Titre1 As Range
Dim Titre2 As Range
    Set Titre1 = Columns(1).Find("Nouvelles anomalies", , xlValues, xlWhole)
    Set Titre2 = Columns(1).Find("Anomalies supprimées", , xlValues, xlWhole)
    If Not Titre1 Is Nothing And Not Titre2 Is Nothing Then
        Contour Range(Cells(Titre1.Row, 1), Cells(Titre1.Row, 9))
        Contour Range(Cells(Titre2.Row, 1), Cells(Titre2.Row, 9))
        If Titre1.Offset(1, 0) <> "" Then _
            Contour Range(Cells(Titre1.Offset(1, 0).Row, 1), Cells(Titre1.End(xlDown).Row, 9))
        If Titre2.Offset(1, 0) <> "" Then _
            Contour Range(Cells(Titre2.Offset(1, 0).Row, 1), Cells(Titre2.End(xlDown).Row, 9))
    End If
End Sub
Sub Contour(Plage)
    Plage.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
End Sub

A+

Bonjour,

Merci de m'avoir souhaité la bienvenue!

Je te remercie infiniment pour ton aide ça marché.

A bientot