Autres Centrer ou Annuler Centrer

 If Ligne < 6 Or Ligne > 36 Or Colonne < 6 Or Colonne > 7 Then

Sub test()
   Dim Ligne& , Colonne&
 Ligne = 8
    Colonne = 4
    If Ligne < 6 Or Ligne > 36 Or Colonne < 6 Or Colonne > 7 Then
        MsgBox "Et!!...OUAIP!!!! on passe c'est baloh!!! hein !!!"
    End If
End Sub

If Ligne < 6 Or Ligne > 36 and Colonne < 6 Or Colonne > 7 Then

If (Ligne < 6 Or Ligne > 36) and (Colonne < 6 Or Colonne > 7Then)

Sub test()
    Ligne = 4
    Colonne = 6
    If (Ligne < 6 Or Ligne > 36) And (Colonne < 6 Or Colonne > 7) Then
        MsgBox "Et Bien sur que là on passe "
    Else
    MsgBox "mais bien sur!!! que non que l'on passe pas!!! "
    End If

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Obj As Shape, Ligne As Long
Dim ColRef As String
Dim ColDep As String, ColsUtiles As String
                                                      ' Change automatiquement le texte du bouton
  Ligne = Selection.Row
 
    If UCase(Sh.Name) = "MENU" And Target.Count > 1 Then Exit Sub
    
    Application.ScreenUpdating = False
    If Target.Column = 2 Then
      ColRef = "A1"
      ColDep = "B"
      ColsUtiles = "Colonnes B - C"
    ElseIf Target.Column = 6 Then
      ColRef = "I2"
      ColDep = "F"
      ColsUtiles = "Colonnes F - G"
    Else
      Exit Sub
    End If
      
'      ActiveSheet.Unprotect

    For Each Obj In ActiveSheet.Shapes
      If InStr(1, Obj.TextFrame.Characters.Text, "Centrer Texte", vbTextCompare) > 0 And Obj.TopLeftCell.Address(0, 0) = ColRef Then Exit For
    Next Obj

    If Not Obj Is Nothing Then
    ' Calcul de la dernière ligne.Celle-ci sera automatiquement centrée sur les colonnes B & C en cliquant sur le Bouton Centrer Texte Sur Plusieurs Colonnes

      With Obj.TextFrame
        If Range(ColDep & Ligne).HorizontalAlignment = xlCenterAcrossSelection Then
          .Characters.Text = "Annuler Centrer Texte" & vbLf & ColsUtiles
        .Characters(Start:=1, Length:=15).Font.ColorIndex = 3
        .Characters(Start:=16, Length:=16).Font.ColorIndex = 5
        .Characters(Start:=32, Length:=5).Font.ColorIndex = 3
          '.Characters(Start:=23, Length:=22).Font.ColorIndex = 5
        Else
          .Characters.Text = "Centrer Texte" & vbLf & ColsUtiles
        .Characters(Start:=1, Length:=7).Font.ColorIndex = 3
        .Characters(Start:=8, Length:=16).Font.ColorIndex = 5
        .Characters(Start:=24, Length:=5).Font.ColorIndex = 3
          '.Characters(Start:=15, Length:=22).Font.ColorIndex = 5
        End If
      End With
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Dwo As Object, Shp As Object, Cible As String
    For Each Shp In Sh.DrawingObjects
        If Shp.TopLeftCell.Address = "$A$1" _
        Or Shp.TopLeftCell.Address = "$I$2" _
        Then Shp.Visible = False
    Next
    Select Case True
    Case Target.Count > 1
    Case UCase(Sh.Name) = "MENU"
    Case Not Intersect(Target, Union([B:C], [F:G])) Is Nothing
        For Each Shp In Sh.DrawingObjects
            Select Case True
            Case Shp.TopLeftCell.Address = "$A$1" _
             And Not Intersect(Target, [B:C]) Is Nothing
                Set Dwo = Shp
                Cible = vbLf & "Colonnes B-C"
                Exit For
            Case Shp.TopLeftCell.Address = "$I$2" _
             And Not Intersect(Target, [F:G]) Is Nothing
                Set Dwo = Shp
                Cible = vbLf & "Colonnes F-G"
                Exit For
            End Select
        Next
        If Not Dwo Is Nothing Then
            With Dwo
                .Visible = True
                .Font.ColorIndex = 5
                .Text = IIf(Target.HorizontalAlignment = xlCenterAcrossSelection, _
                            "Annuler Centrer Texte", _
                            "Centrer Texte") & Cible
                .Characters(Start:=1, Length:=InStr(.Text, " Texte")).Font.ColorIndex = 3
                .Characters(Start:=InStr(.Text, "s") + 1).Font.ColorIndex = 3
            End With
        End If
    End Select
End Sub
Sub Align_Cell()
    Dim Target As Range
    With Selection
        Select Case .Column
            Case Columns("B").Column, Columns("F").Column:  Set Target = .Resize(, 2)
            Case Columns("C").Column, Columns("G").Column:  Set Target = .Offset(, -1).Resize(, 2)
        End Select
        With Target
            If .Cells(1) = "" Then .Cells(1) = .Cells(2): .Cells(2) = ""
            .HorizontalAlignment = IIf(.HorizontalAlignment = xlCenterAcrossSelection, xlCenter, xlCenterAcrossSelection)
            .VerticalAlignment = xlCenter
        End With
        Workbook_SheetSelectionChange ActiveSheet, .Cells(1)
    End With
    Application.EnableEvents = True
End Sub