Bonsoir Williams, Michel, Bernard
Pendant qu'on y est , en voici une troisième:
Sub nettoyer()
Const val1 As Integer = 11520
Const val2 As Integer = 15000
Dim nbre1, nbre2, cptr As Long
ActiveSheet.Unprotect
Application.ScreenUpdating = False
nbre1 = Application.CountIf(Range("L2:L500"), val1)
nbre2 = Application.CountIf(Range("L2:L500"), val2)
'on ne boucle que sur les valeurs égales au constantes
cptr = 1
While cptr <= nbre1
lig = Columns(12).Find(val1, [L1], , , xlByRows).Row
Range(Cells(lig, 1), Cells(lig, 13)).ClearContents
cptr = cptr + 1
Wend
cptr = 1
While cptr <= nbre2
lig = Columns(12).Find(val2, [L1], , , xlByRows).Row
Range(Cells(lig, 1), Cells(lig, 13)).ClearContents
cptr = cptr + 1
Wend
'ActiveSheet.Protect
End Sub
Bonne soirée, Williams, tu as l'embarras du choix
Michel