Microsoft 365 Insérer des lignes dans un tableau en décalant celles du dessous

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False 'on désactive le refresh
Application.EnableEvents = False 'on désactive les évènements.. sinon.. cettte macro sera appelée en boucle==> plantage
Application.Calculation = xlCalculationManual

With ActiveSheet 'dans la feuille active
    LastCol = .Cells(5, .Columns.Count).End(xlToLeft).Column 'dernière colonne non vide de la ligne 5
    For j = 7 To LastCol 'pour chaque colonne de G à LastCol
        Nombre = Application.WorksheetFunction.CountIf(.Cells(6, j).Resize(5, 1), 0) 'on compte le nombre de 0 sur les 5 lignes
        .Cells(21, j) = IIf(Nombre <> 0, "Vacances", "") 'on met vacances ou rien selon le résultat
        .Columns(j).AutoFit 'on ajuste la largeur de la colonne
    Next j
End With
Application.Calculation = xlCalculationAutomatic 'on réactive
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Sub Chantier()
'Dim A$, B$, D$, Semaine$, Chantier$ '==> c'est équivalemnt à la ligne ci dessous
Dim A As String, B As String, D As String, Semaine As String, Chantier As String

With Sheets("2022") 'dans la feuille 2022

    A = MsgBox("Voulez-vouis saisir un nouveau chantier ?", vbYesNo + vbQuestion)

    If A = vbNo Then
        Close A
    Else
        B = InputBox("Quel est le chantier ?", "Nom du chantier", "Nom du chantier")
       
        If B = "Nom du chantier" Or B = " " Or B = "" Then
            MsgBox "Veuillez entrez un nom de chantier", vbExclamation
        Else
            Semaine = InputBox("Quelle est la semaine concernée ?", vbOKCancel)
           
            If Semaine < 0 Or Semaine > 52 Then
                MsgBox "Veuillez entrer un nombre entre 1 et 52", vbExclamation
            Else
                BE = InputBox("Combien de temps de travail au BE ?", vbOKCancel)
                Fab = InputBox("Combien de temps de travail pour la fabrication ?", vbOKCancel)
                Fini = InputBox("Combien de temps de travail pour la finition ?", vbOKCancel)
                Pose = InputBox("Combien de temps de travail pour la pose ?", vbOKCancel)
               
                Cells(11, Semaine + 6) = "- " & B       '  + 6 car il y a 6 colonnes avant les colonnes des semaines
                Cells(12, Semaine + 6) = BE             '  + 6 car il y a 6 colonnes avant les colonnes des semaines
                Cells(13, Semaine + 6) = Fab            '  + 6 car il y a 6 colonnes avant les colonnes des semaines
                Cells(14, Semaine + 6) = Fini           '  + 6 car il y a 6 colonnes avant les colonnes des semaines
                Cells(15, Semaine + 6) = Pose           '  + 6 car il y a 6 colonnes avant les colonnes des semaines
                AutoColumnLength Cells(11, Semaine + 6) '  + 6 car il y a 6 colonnes avant les colonnes des semaines
                MsgBox "Le chantier " & B & " est crée", vbInformation, "Nom du chantier"
            End If
        End If
    End If
End With
End Sub

Sub ResetChantier()
Dim Semaine$
With Sheets("2022")
    Semaine = InputBox("Quelle semaine voulez-vous supprimer ?", vbOKCancel)
                   
    Cells(11, Semaine + 6).ClearContents    ' + 6 car il y a 6 colonnes avant les colonnes des semaines
    Cells(12, Semaine + 6).ClearContents    ' + 6 car il y a 6 colonnes avant les colonnes des semaines
    Cells(13, Semaine + 6).ClearContents    ' + 6 car il y a 6 colonnes avant les colonnes des semaines
    Cells(14, Semaine + 6).ClearContents    ' + 6 car il y a 6 colonnes avant les colonnes des semaines
    Cells(15, Semaine + 6).ClearContents    ' + 6 car il y a 6 colonnes avant les colonnes des semaines

End With

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Offset(0, -1) <> "Semaine" Then Exit Sub
Application.EnableEvents = False
ligne = Target.Row
Colonne = Target.Column
A = MsgBox("Est-ce une semaine de vacances ?", vbYesNo, "Vacances")
             
If A = vbYes Then

    Cells(ligne + 6, Colonne).Resize(1, 9) = 0
    Cells(ligne + 23, Colonne) = 7
Else
    formule = "=MAX(0,C" & ligne + 3 & "-$C$" & ligne + 23 & "*8-C" & ligne + 5 & "*8)"
    Cells(ligne + 6, Colonne).Resize(1, 9).Formula = formule
    
    Do
        B = InputBox("Combien de four fériés (entre 0 et5) ?", vbQuestion)
        
        If B = "" Then B = -1
        If Not IsNumeric(B) Then B = -1
        
    Loop Until CDbl(B) >= 0 And CDbl(B) <= 5
    
    Range("C" & ligne + 23) = CDbl(B)
    
End If

Application.EnableEvents = True
End Sub