Sub Chris6999()
Dim MaDate, MonAgent, DerLig,c
Dim Trouvé As Boolean
Trouvé = False
With Worksheets("Fiche SAISIE")
MaDate = .Range("K2")
MonAgent = .Range("G2")
End With
With Worksheets(MonAgent)
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For Each c In .Range("A1:A" & DerLig)
If c Like "*" & MaDate & "*" Then
MsgBox "trouvé " & c.Row
Trouvé = True
Exit For
End If
Next
If Trouvé = False Then MsgBox "pas trouvé"
End With
End Sub