Formule Excel

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("G23") = "MAINTENANCE VALIDÉE" Then
Columns("G:J").Select
    Selection.EntireColumn.Hidden = True
    End If
End Sub

Option Explicit

Const codeb = 7     ' première colonne plage à traiter
Const cofin = 131   ' denière colonne  EA
Const lideb = 5     ' première ligne plage à traiter
Const lifin = 22    ' dernière ligne

Const nbco = 4      ' nbre colonnes à masquer par plage

Private Sub Worksheet_Change(ByVal Target As Range)
Dim co As Long, li As Long, plage As Range, co1 As String, co2 As String, adr As String
If Target.Count > 1 Then Exit Sub
co = Target.Column
li = Target.Row
adr = Cells(li, co).Address
co1 = Split(adr, "$")(1)
adr = Cells(li, co + nbco - 1).Address
co2 = Split(adr, "$")(1)
If (co - codeb) Mod nbco = 0 Then
  If li >= lideb And li <= lifin Then
    Set plage = Range(Cells(lideb, co), Cells(lifin, co))
    If Not Intersect(Target, plage) Is Nothing Then
      If Application.WorksheetFunction.CountBlank(plage) = 0 Then
        Cells(lifin + 1, co).Value = "MAINTENANCE VALIDEE"
        Application.Wait (Now + TimeValue("0:00:3"))    ' attend 3s avant de masquer
        Columns(co1 & ":" & co2).EntireColumn.Hidden = True
      End If
    End If
  End If
End If
End Sub

Const codeb = 11     ' première colonne plage à traiter
Const lideb = 5     ' première ligne plage à traiter
Const lifin = 22    ' dernière ligne