Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim O As Worksheet
Dim R As Range
Set O = ActiveSheet
Set R = O.Columns(8).Find("Plusieurs acteurs", , xlValues, xlPart)
If Not R Is Not Nothing Then
Sheets("Ton_Onglet").Select
Range("Ta_cellule).value=Ta_valeur
End If
End Sub