Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Lig&
For Lig = 1 To 366
With Sh
If Feuil0.Cells(Lig, 1) = .Cells(2, 2) Then Feuil0.Cells(Lig, ActiveSheet.Index + 1) = .Cells(10, 2)
If Feuil0.Cells(Lig, 1) = .Cells(2, 2) Then Feuil0.Cells(Lig, ActiveSheet.Index + 8) = .Cells(11, 2)
End With
Next Lig
End Sub