Ajouter une Bordure de Titre

Bonjour à toutes et à tous,

Feuille Propositions menus midi retrait ! ligne 1 : Le titre s'affiche bien et la bordure se fait correctement sans l'intérieur dans les différentes colonnes. Cette première ligne est parfaite.

Toutes les 14 lignes : le titre s'affiche bien mais la bordure est absente. 
qui va pouvoir m'aider à résoudre ce problème ? Ensuite, cette absence résolue, je m'attaquerai à remplir les lignes et colonnes suivantes.

D'avance merci pour votre aide. Bonnes fin de journée à toutes et à tous. Prenez bien soin de vous. Cordialement.

Quand cjoint refonctionnera, je vous joindrai le fichier.

Procédure GénPropMMR :

Option Explicit

Sub GénPropMMR()

'Déclaration des variables. nm = numéro menu. Je représente le nombre de lignes, excepté la ligne titre;le décompte commence donc à la ligne 2. DatJ = Date du jour.

Dim Lig As Long, Col As Long, nm As Long, J As Long
Dim Datj As Date

    ' ScreenUpdating True si la mise à jour de l’écran est activée. Type de données Boolean en lecture-écriture.
    Application.ScreenUpdating = False
    
    'Initialisations. WorksheetFunction.WorkDay : Renvoie un nombre représentant une date qui est le nombre de jours ouvrés indiqué avant ou après une date (date de début).
    'Les jours ouvrés excluent les week-ends et les jours de congés. Utilisez la fonction WORKDAY pour exclure les week-ends et les jours de congés lorsque vous calculez les
    'dates d'échéance des factures, les heures de livraison attendues ou le nombre de jours ouvrés effectués. 12 représente le nombre de mois, 31 équivaut au nombre de jours
    'maximum d'un mois. nm =1 : le numéro menu commence à 1.
    Datj = WorksheetFunction.WorkDay(DateSerial(Range("Année_en_Cours") - 1, 12, 31), 1)
    nm = 1
    
    'Remplissage. Worksheet("Propositions MMR") : il s'agit de la feuille dont le nom est indiqué à l'intérieur de la parenthèse.
    With Worksheets("Propositions menus midi retrait")
        'B:H : représente les colonnes de la feuille Propositions MMR qui seront à remplir. ClearContents : Masquer toutMéthode ClearContents telle qu'elle s'applique à l'objet
        'Range. Efface les formules de la plage.
        .Range("B:H").ClearContents
        'For  Lig = 1 to 532 Step 14 : 1 to 532 : reprense le nombre de lignes à remplir (y compris la ligne titre). Step : Le mot clé Step est employé dans les contextes suivants :
        'For...Next, instruction.
        For Lig = 1 To 532 Step 14
        Call AjouterBordureTitre
            'For Col = 2 to 8 : Pour les colonnes 2 à 8 (la colonne A n'est pas prise en compte, le décompte commence donc à la colonne B jusqu'à la colonne H incluses.
            For Col = 2 To 8
                'En tête. À la ligne 1 (nom compris la ligne titre), va écrire MMR et formater le numéro menu (nm);À la ligne 2, (immédiatement après la précédente), va écrire la date
                'du jour.
                .Cells(Lig + 0, 1) = "Propositions menus midi retraite"
                
                 
                 'Incrémentations pour menu suivant.
                 'nm = nm + 1
                 'Datj = WorksheetFunction.WorkDay(Datj, 1)
                 'If Year(Datj) > Range("Année_en_Cours").Value Then Exit For
            Next Col
        Next Lig
    End With
'Call AjouterBordureTitre
End Sub

Procédure AjouterBordureTitre

Option Explicit

Sub AjouterBordureTitre()
Dim Lig As Long, Col As Long, nm As Long, J As Long
Dim Datj As Date
'
' AjouterBordureTitre Macro
'

'
 
    Range("A1:H1").Select
 'For Lig = 1 To 532 Step 14
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    For Lig = 1 To 532 Step 14
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A4").Select
Next Lig
End Sub

Modération : merci de mettre en forme le message et le code comme expliqué ici.

Windows / Chrome 13,1.0.0.0