Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sem As Range, Emp1 As Range, Emp2 As Range
If Target.Address = [I1].Address Then ' la cellule modifiée doit être I7
' On recherche I7 dans la ligne 1 de Feuil2
Set Sem = Sheets("Feuil2").Rows(1).CurrentRegion.Find(Target, , xlValues, xlWhole)
If Not Sem Is Nothing Then
' pour tous les Emplacements de Feuil1
For Each Emp1 In Me.Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
' On recherche Emp1 dans feuil2
Set Emp2 = Sheets("Feuil2").Columns("A").Find(Emp1, , xlValues, xlWhole)
' On renseigne la colonne de la semaine en Feuil2
If Not Emp2 Is Nothing Then Sheets("Feuil2").Cells(Emp2.Row, Sem.Column) = Emp1.Offset(, 5)
Next
End If
End If
End Sub