Sub test()
Debut = InputBox("Quelle est la date de début d'analyse ? (jj/mm/aa)", "Date début")
If Not IsDate(Debut) Then
MsgBox "La date de début n'est pas une date": Exit Sub
End If
Fin = InputBox("Quelle est la date de fin d'analyse ? (jj/mm/aa)", "Date fin")
If Not IsDate(Fin) Then
MsgBox "La date de fin n'est pas une date": Exit Sub
End If
Tag = InputBox("Quelle est le TAG concerné ? ", "TAG")
If Application.CountIf([4:4], Tag) = 0 Then
MsgBox "Ce tag n'existe pas": Exit Sub
End If
C = Application.Match(Tag, [4:4], 0)
For L = 5 To Range("A65500").End(xlUp).Row
If Cells(L, "A") >= CDate(Debut) And Cells(L, "A") <= CDate(Fin) And Cells(4, C) = Tag Then
Cells(L, C) = ""
End If
Next L
End Sub