Optimisation de code sur visuel d'avancement de projet

Private Sub CommandButton1_Click()
Dim myrange As Range
Dim cell As Range
Dim count As Integer
Dim a As Integer


For a = 12 To 50
Set myrange = ActiveSheet.Range("J" & a & ":AC" & a)
count = 20 * Range("G" & a).Value

For Each cell In myrange

    'cell.Value = "x"
    With cell.Interior
        .Pattern = xlPatternLinearGradient
        .Gradient.Degree = 90
        .Gradient.ColorStops.Clear
    End With
    With cell.Interior.Gradient.ColorStops.Add(0)
        .Color = 15773696
        .TintAndShade = 0
    End With
    With cell.Interior.Gradient.ColorStops.Add(0.5)
        If count > 0 Then .Color = 65535 Else .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With cell.Interior.Gradient.ColorStops.Add(1)
        .Color = 15773696
        .TintAndShade = 0
    End With
    
    count = count - 1
Next cell

Next
End Sub

Private Sub CommandButton1_Click()
    Dim Pl As Range, Cel As Range, Lg&
'    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Range("J12:AC" & Rows.Count).Clear
    Lg = Range("A" & Rows.Count).Row
    Set Pl = Range("G12:G" & Lg)
    For Each Cel In Pl.Rows
        If Cel <> "" Then
            With Range("J" & Cel.Row & ":AC" & Cel.Row).Interior
                .Pattern = xlPatternLinearGradient
                .Gradient.Degree = 90
            '    .Gradient.ColorStops.Clear
            End With
            With Range(Cells(Cel.Row, 10), Cells(Cel.Row, 9 + (Cel * 20))).Interior.Gradient.ColorStops
                .Add(0).Color = 15773696
                .Add(0.5).Color = 65535
                .Add(1).Color = 15773696
                .Add(0).TintAndShade = 0
            End With
        End If
    Next Cel
 '   Application.ScreenUpdating = True
    Application.EnableEvents = True
    
End Sub

Private Sub CommandButton1_Click()
  Dim Plage As Range
  Set Plage = ActiveSheet.Range("J12:J4200")
  Plage = "": Plage.Interior.Pattern = xlNone
  With Plage.Interior
    .Pattern = xlPatternLinearGradient
    .Gradient.Degree = 90
    .Gradient.ColorStops.Clear
    .Gradient.ColorStops.Add(0).Color = 15773696
    .Gradient.ColorStops.Add(0.5).Color = 65535
    .Gradient.ColorStops.Add(1).Color = 15773696
  End With
  Plage.FormulaR1C1 = "=IF(RC[-3]="""","""",REPT(""·"",RC[-3]*100))"
  Plage = Plage.Value
End Sub