Bonjour.
j'ai le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Mise_a_zero()
'
' Couleur mise a zero
'
Application.ScreenUpdating = False
Sheets("AR-Base").Select
    Range("A6:S11,A13:F16,U3:U67").Select
    With Selection.Interior
        .Pattern = xlNone
    End With
    Range("T3:Y67").Select
    Selection.ClearContents
    Range("U2:Y67").Select
    ActiveWindow.SmallScroll Down:=-17
    ActiveWindow.LargeScroll Down:=-1
    ActiveWindow.SmallScroll Down:=-1
    ActiveWindow.LargeScroll Down:=-1
    ActiveWorkbook.Worksheets("AR-Base").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("AR-Base").Sort.SortFields.Add Key:=Range("U3:U67") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("AR-Base").Sort
        .SetRange Range("V3:Y67")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
'        .Apply
    End With
    Range("T3:T67").Select
    Selection.ClearContents
    Range("C2:D3").Select
    Selection.ClearContents
Sheets("D-Base").Select
    Range("W3:AB67").Select
    Selection.ClearContents
         With Selection.Interior
        .Pattern = xlNone
    End With
    Range("A3:R3,A6:R6,A9:R9,A12:R12,A15:M15").Select
    Selection.ClearContents
        With Selection.Interior
        .Pattern = xlNone
    End With
    [F2].Select
Sheets("AR-Base").Select
    [F2].Select
Application.ScreenUpdating = True
End Sub
et je souhaiterais lors du lancement de la macro, avoir un message demandant si je veux reelement executer cette commande, si oui
execute si non annuler la commande

cris