Private Sub Worksheet_Change(ByVal Target As Range)
Dim Emplacement As Range, reportLine As Integer, FirstEmplacement As String
If Target.Address = "$O$5" Then
Sheets("Principal").Range("P5:Q36").Clear
With Sheets("Principal").Range("f3:L36")
Set Emplacement = .Find(Sheets("principal").Range("o5").Value, LookIn:=xlValues)
If Not Emplacement Is Nothing Then
reportLine = 5
FirstEmplacement = Emplacement.Address
Do
With Sheets("Principal").Cells(reportLine, 16)
.Value = Sheets("Principal").Cells(Emplacement.Row, 5).Value & " - " & Sheets("Principal").Cells(2, Emplacement.Column).Value
.Interior.Color = Emplacement.Interior.Color
End With
Set Emplacement = .FindNext(Emplacement)
reportLine = reportLine + 1
Loop While Not Emplacement Is Nothing And Emplacement.Address <> FirstEmplacement
'Else
End If
End With
End If
End Sub