rajout d'un controle dans macro vba

[SIZE=2][COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit
Option Private Module[/COLOR]

[COLOR=NAVY]Sub[/COLOR] SupprLignVide()
[COLOR=GREEN]'myDearFriend! - Octobre 2006[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Zone [COLOR=NAVY]As[/COLOR] Range, Plage [COLOR=NAVY]As[/COLOR] Range, L [COLOR=NAVY]As[/COLOR] Range
    [COLOR=NAVY]With[/COLOR] ActiveSheet
        [COLOR=NAVY]Set[/COLOR] Zone = Application.Intersect(.UsedRange, Rows("11:65536"))
[B]        [COLOR=NAVY]If[/COLOR] Zone.Rows.Count = 2 And Application.CountBlank(.Range("A10:O10")) = 15 [COLOR=NAVY]Then[/COLOR]
            MsgBox "Tableau vide, il faut remplir au moins une ligne !"
            [COLOR=NAVY]Exit Sub
        End If
[/COLOR][/B][COLOR=NAVY]        For Each[/COLOR] L [COLOR=NAVY]In[/COLOR] Zone.Rows
            [COLOR=NAVY]If[/COLOR] Application.CountBlank(L.Range("A1:O1")) = 15 [COLOR=NAVY]Then
                If[/COLOR] Plage [COLOR=NAVY]Is Nothing Then
                    Set[/COLOR] Plage = L
                [COLOR=NAVY]Else
                    Set[/COLOR] Plage = Union(Plage, L)
                [COLOR=NAVY]End If
            End If
        Next[/COLOR] L
        [COLOR=NAVY]If Not[/COLOR] Plage [COLOR=NAVY]Is Nothing Then[/COLOR] Plage.EntireRow.Delete
    [COLOR=NAVY]End With
End Sub[/COLOR]

[COLOR=NAVY]Sub[/COLOR] AjouteLigne()
[COLOR=GREEN]'myDearFriend! - Août 2006[/COLOR]
[COLOR=NAVY]Dim[/COLOR] Plage [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] L [COLOR=NAVY]As Long
    With[/COLOR] ActiveSheet
        [COLOR=NAVY]Set[/COLOR] Plage = .Rows(.Range("A65536").[COLOR=NAVY]End[/COLOR](xlUp).Row)
        Plage.Copy
        .Rows(Plage.Row + 1).Insert shift:=xlDown
        Application.CutCopyMode = [COLOR=NAVY]False
        On Error Resume Next[/COLOR]
        .Rows(Plage.Row + 1).Cells.SpecialCells(xlCellTypeConstants, 23).ClearContents
    [COLOR=NAVY]End With
End Sub[/COLOR][/SIZE]