Sub annuleractif()
If Userform1.TextBox10 = "" Then MsgBox ("Vous n'avez pas mis de numero de TELEPHONE"): Exit Sub
With Sheets("ACTIF")
Set I = .[x:x].Find(What:=Userform1.TextBox10, LookIn:=xlValues, LookAt:=xlWhole)
If I Is Nothing Then Set I = .[y:y].Find(What:=Userform1.TextBox10, LookIn:=xlValues, LookAt:=xlWhole)
If I Is Nothing Then MsgBox ("TELEPHONE INTROUVABLE"): Exit Sub
.Cells(I.Row, 2) = CDate(Date)
.Cells(I.Row, 2).Interior.ColorIndex = 15
.Cells(I.Row, 2).Font.ColorIndex = 1
.Cells(I.Row, 20) = "ANNULER"
.Cells(I.Row, 21) = "ANNULER"
.Cells(I.Row, 20).Interior.ColorIndex = 15
.Cells(I.Row, 21).Interior.ColorIndex = 15
.Cells(I.Row, 22).Interior.ColorIndex = 15
Userform1.TextBox10 = ""
End With
Set I = Nothing
End Sub