Vba excel ligne selectionnée, colonne donnée

Private Sub CommandButton1_Click()
Dim lig As Long

    lig = Selection.Row
    Range("B" & lig & ":C" & lig).Select
    Selection.Merge
    

End Sub

Private Sub CommandButton1_Click()
Dim lig As Long
Dim NumWeek As Integer

    lig = Selection.Row
    NumWeek = DatePart("ww", Range("B" & lig - 1).Value)
    Range("B" & lig).Value = "N° de semaine: " & NumWeek
    Range("B" & lig & ":C" & lig).Select
    Selection.Merge
    Selection.HorizontalAlignment = xlCenter

End Sub

Option Explicit

Private cb As CommandBar
Private cbb10 As CommandBarButton

Public Sub config_barre_XL()
    'Création de la barre de menu
    Set cb = CommandBars.Add
    With cb
        .Name = "Ma barre perso"
        .Position = msoBarTop
        .Visible = True
    End With
    
    'Ajout Le bouton du menu
    Set cbb10 = cb.Controls.Add(msoControlButton)
    With cbb10
        .OnAction = "Effectuer_La_Tache"    'l'action a réaliser sur le click du bouton
        .Caption = "Mon bouton"             'Le nom qui doit être affiché sur le bouton"
        .Style = msoButtonCaption
    End With
    
End Sub

Public Sub Supp_Bouton()
Dim cb

With Application
        For Each cb In .CommandBars
            'Toutes les barres autres que celle de l'application sont réaffichées
            If cb.Name = "Ma barre perso" Then
                cb.Enabled = False
                cb.Delete
            End If
        Next cb
    End With
    
End Sub

Private Sub Effectuer_La_Tache()
Dim lig As Long
Dim NumWeek As Integer

    lig = Selection.Row
    NumWeek = DatePart("ww", Range("B" & lig - 1).Value)
    Range("B" & lig).Value = "N° de semaine: " & NumWeek
    Range("B" & lig & ":C" & lig).Select
    Selection.Merge
    Selection.HorizontalAlignment = xlCenter
    
End Sub

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Module1.Supp_Bouton
End Sub

Private Sub Workbook_Open()
    Module1.config_barre_XL
End Sub