Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell Like "*Accident*" Or ActiveCell Like "*Congé*" _
Or ActiveCell Like "*Libération*" Or ActiveCell Like "*Assignation*" _
Or ActiveCell Like "*Convalescence*" Or ActiveCell Like "*Vacances*" Then
Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, 1)).Copy Feuil2.Range("a65536").End(xlUp)(2)
Else
Exit Sub
End If
End Sub