Sub Copier_participants()
If Range("M4") = 905 Then
Sheets("Sorties 2018").Range("G6:I114").Copy
With Sheets("Sortie")
.Range("H11").PasteSpecial Paste:=xlPasteValues
.Range("H11").PasteSpecial Paste:=xlPasteComments
End With
Application.CutCopyMode = False
End If
If Range("M4") = 906 Then
Sheets("Sorties 2018").Range("J6:L114").Copy
With Sheets("Sortie")
.Range("H11").PasteSpecial Paste:=xlPasteValues
.Range("H11").PasteSpecial Paste:=xlPasteComments
End With
Application.CutCopyMode = False
End If
Range("D7").Select
End Sub