Besoin aide macros

Private Sub test()
Dim lig As Long, mois As Integer
For lig = UsedRange.Columns(1).Cells.Count To 1 Step -1
    If Cells(lig, 1).Value = "security" Then
        'cellule destinataire
        Cells(1, 3).Value = Cells(lig, 1).Offset(0, 1).Value
    ElseIf Cells(lig, 1).Value >= 1 And Cells(lig, 1).Value <= 30 Then
        'effacement ligne
        Rows(lig).ClearContents
    Else
        For mois = 1 To 12
            If Cells(lig, 1).Value = Format(DateValue("1/" & mois & "/2010"), "mmmm") Then
            'suppression ligne
                Rows(lig).Delete
                Exit For
            End If
        Next mois
    End If
Next lig
End Sub