Aide à la création et l'utilisation d'une macro !

Sub dbis() ' juste test en cours
Dim vArr, i As Byte, j As Byte
vArr = Array("Manutention manuelle", " Bruit", "Températures extrêmes", "Postures pénibles", _
"Travail en équipes alternantes", "Travail de nuit", "Vibrations mécaniques", "Gestes répétitifs")
For j = 1 To 50 Step 8
Cells(j , 1).Resize(UBound(vArr) + 1) = Application.Transpose(vArr)
Next
End Sub

Sub e()
Dim ZONE_A_COPIER As Range, i As Long
Set ZONE_A_COPIER = Range("F1:F8")
For i = 1 To 50 Step 8 ' à adapter plus tard
ZONE_A_COPIER.Copy Cells(i, 1).Offset(1)
Next i
End Sub

Sub MainProc()
Application.ScreenUpdating = False
insertionLignes
remplirVides
miseEnForme
Application.ScreenUpdating = True
End Sub

Private Sub insertionLignes()
Dim r&
r = Cells(Rows.Count, "A").End(xlUp).Row
For r = r To 2 Step -1
ActiveSheet.Rows(r + 1).Resize(9).Insert
Next r
End Sub

Private Sub remplirVides()
Dim Dlig&
Dlig = Cells(Rows.Count, "C").End(xlUp).Row + 9
Range("C2:C" & Dlig).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
With Range("C2:C" & Dlig)
.Value = .Value
.Rows.AutoFit
End With
End Sub

Private Sub miseEnForme()
Dim i&, j As Byte, Dlig&, vVals, vCols, adrCol, lDlig&
Dlig = Cells(Rows.Count, "A").End(xlUp).Row + 8
vVals = Array(vbNullString, "Manutention manuelle", " Bruit", "Températures extrêmes", "Postures pénibles", _
"Travail en équipes alternantes", "Travail de nuit", "Vibrations mécaniques", "Gestes répétitifs")
vCols = Array(22, 37, 37)
adrCol = Array("I2:J2", "P2", "V2")
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row + 8 Step 10
Cells(i, "A").Resize(9, 29).Interior.ColorIndex = 19
Cells(i, "I").Resize(9) = Application.Transpose(vVals)
Next
For j = 0 To 2
Range(adrCol(j)).Resize(Dlig).Interior.ColorIndex = vCols(j)
Next
lDlig = Cells(Rows.Count, "C").End(xlUp).Row
Range("C2:C" & lDlig).Columns.AutoFit
Range("I2:I" & lDlig).Columns.AutoFit
Range("A2:AC" & lDlig).Borders.LineStyle = 1
End Sub