Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [Agents].Address Then
With Sheets([Agents].Value)
x = Application.Match([Date_recherchée], .[b:b], 0)
If IsNumeric(x) Then
.Range(.Cells(x, "c"), .Cells(x, "t")).Copy
[d10].PasteSpecial , Paste:=xlPasteValues, Transpose:=True
Else
MsgBox "Date non présente chez l'agent : " & [Agents], , "Information"
End If
Application.CutCopyMode = False
End With
End If
End Sub