Private Sub Worksheet_Activate()
Me.[A10:A27].ClearContents
On Error Resume Next
Application.EnableEvents = False
Feuil1.[C6:C65536].SpecialCells(xlCellTypeConstants, 2).Offset(, -1).Copy Destination:=Me.[A10]
If Err = 1004 Then Feuil1.Activate: MsgBox "Selectionnez au moins un risque.", vbCritical, Me.Name
Application.EnableEvents = True
End Sub