Action Conditionnel (Copier coller)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column Mod 11 <> 1 Or Target.Row <> 3 Then Exit Sub
MsgBox ("Cellule " & Target.Address)
End Sub

Private Sub Worksheet_Calculate()
Dim M(20) As String
Dim i, j As Integer
Dim ol As Object
Dim olmail As Object
Dim CurrFile As Object
Dim Msg, Style, Title, Response
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(0)
j = 1
For i = 1 To 201 Step 11
    If Cells(3, i) <> M(j) Then '1
        M(j) = Cells(3, i)

    With olmail
        .To = "timeislimite@hotmail.com"
        .Subject = Cells(3, i)
        .Body = ": " & Cells(3, i + 1) & "   : " & Cells(3, i + 2)
       ' .Attachments.Add "c:\data\essai.doc"
         '.Send
         .display
    'Debug.Print PlaySoundFileA("C:\Windows\Media\tada.wav")
    
    Call Sounds
    Msg = ": " & Cells(3, i + 1) & "   : " & Cells(3, i + 2)
    Style = vbYesNoCancel + vbQuestion + vbDefaultButton1
    Title = Cells(3, i)
    Response = MsgBox(Msg, Style, Title)
    End With
    Exit For
    End If
j = j + 1
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column + 10) Mod 11 = 0 And Target.Row = 3 Then
  Range(Target, Target.Offset(0, 3)).Copy Destination:=Sheets("Sheet2").Range("A3")
  Range(Target.Offset(8, 0), Target.Offset(16, 1)).Copy Destination:=Sheets("Sheet2").Range("A11")
End If
End Sub

Private Sub Worksheet_Calculate()