Der_lign = Range("B65536").End(xlUp).Row
'Application.Calculation = xlCalculationManual
For x = 6 To Der_lign
Set PlageDeRecherche = ActiveSheet.Columns(22)
Set Trouve = PlageDeRecherche.Cells.Find(what:="validé", LookAt:=xlWhole, LookIn:=xlValues)
If Not Trouve Is Nothing Then
AdresseTrouvee = Trouve.Address
Lignenageuse = Range(AdresseTrouvee).Row
Range("B" & Lignenageuse & ":L" & Lignenageuse) = ""
Range("N" & Lignenageuse & ":N" & Lignenageuse) = ""
End If
Next
'Application.Calculation = xlCalculationAutomatic