Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <> 11 Or c.Count > 1 Or c.Row < 6 Then Exit Sub
If c = "oui" Then c.Offset(, -9).Resize(, 5).Copy Destination:=Sheets("Adresses envoi"). _
Range("a" & Rows.Count).End(xlUp)(2): c.Offset(1, 0).Select
End Sub