Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Outillages" Then Exit Sub
If Target.Count > 1 Or Target.Column <> 12 Or Target = "" Then Exit Sub
Outil = Cells(Target.Row, 1)
Set trouve = Sheets("Outillages").[A:A].Find(what:=Outil, LookIn:=xlValues, lookat:=xlWhole)
If Not trouve Is Nothing Then
If trouve.Offset(0, 12) = "" Then
Sheets("Outillages").Cells(trouve.Row, 13) = Target
Exit Sub
Else
premAdresse = trouve.Address
Do
Set trouve = Sheets("Outillages").[A:A].FindNext(trouve)
If trouve.Offset(0, 12) = "" Then Sheets("Outillages").Cells(trouve.Row, 13) = Target: Exit Sub
Loop While Not trouve Is Nothing And trouve.Address <> premAdresse
End If
End If
End Sub