confirmer macro

If MsgBox("Confirmez vous le lancement de la macro ?", vbOKCancel) = vbCancel Then _
    MsgBox "macro annulé !!!": Exit Sub

Dim Msg, Style, Title, MyString
Msg = "Souhaitez-vous continuer?"    ' Définit le message.
Style = vbYesNo + vbCritical    ' Définit les boutons.
Title = "Démonstration de MsgBox "    ' Définit le titre.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then    ' L'utilisateur a choisi Oui.
    MyString = "Oui"    ' Effectue une action.
Else    ' L'utilisateur a choisi Non.
    MyString = "Non"    ' Effectue une action.
End If

Sub test()
Dim c As Range
If MsgBox("Confirmez vous le lancement de la macro ?", vbOKCancel) = vbCancel Then _
    MsgBox "macro annulé !!!": Exit Sub
Range("T31:EX31").Copy
Range("T32").PasteSpecial Paste:=xlPasteValues
With Feuil2 ' Sheets("source")
    Set c = .Columns("A").Find([A32].Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then Range("t32:ez32").Copy .Range("t" & c.Row & ":ez" & c.Row)
End With
Range("B20:E20,G20:M20").ClearContents
End Sub