Macro pour base planning

Private Sub CommandButton1_Click()    'valider
    Dim cel As Range, C As Byte, DerL As Integer, LD As Long, Lf As Long
    Dim X As Double
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    With Feuil1
        X = Replace(UserForm2.ComboBox3, "%", "") / 100
        X = .Range("AF" & Me.ComboBox2.ListIndex + 20).Value / 5 * X
        For L = LD To Lf
            If test(.Range("AA" & L)) = False Then
                .Range("AB" & L).Value = UserForm2.ComboBox2
                .Range("AC" & L).Value = X
                .Range("AD" & L).Value = UserForm2.ComboBox3
                End If
        Next L
        UserForm2.ComboBox2.ListIndex = -1
        UserForm2.ComboBox3.ListIndex = -1
       
    End With
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Unload Me
End Sub