Insère ligne sous condition

Bonjour,

Je sèche, j’aimerais insérer une ligne quand le service change.

Il y a 5 services dans l’ordre voici leur nom:

- service 1

- service 4

- service 2

- laveur

- service 3

Il y a un nombre de personne dans chaque service qui varie chaque jour. Est ce possible de mettre le nom du service à l’insertion et une couleur gris clair en marge et centre ?
voici un exemple du fichier vide sans personnel

Le service 1 comme sur la photo est déjà fait

Les infos concernant les services de trouve dans la colonne « F »

Et quand on insert la ligne elle doit aller de « À à F » car la colonne « F » est lié au personnel

Dans la colonne « d » il y a une formule recherchée

Merci d’avance

Bonjour,

Code à copier dans un module standard

Sub Insert()
    Dim i As Long, DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Range("F" & Rows.Count).End(xlUp).Row
    For i = DerLig To 2 Step -1
        If Cells(i, "F") <> Cells(i - 1, "F") Then
            Range(Cells(i, "A"), Cells(i, "F")).Insert Shift:=xlDown
            With Range(Cells(i, "A"), Cells(i, "F"))
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlBottom
                .Interior.Color = RGB(191, 191, 191)
                .Merge
            End With
            Cells(i, "A") = Cells(i + 1, "F")
        End If
    Next i
End Sub

Cdlt