pour toutes les autres cellules de la ligne, sauf colonne A :
Code:
Dim x As Range
Set x = Range("A13:A28").Find(Range("A1").Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then Range(x.Offset(0, 1), x.Offset(0, 10)).ClearContents
@+
edition tu peux enlever le 1er offset pour effacer également la cellule en colonne A
mais bien sure c'est une evidence, j'y avais pensé, hum hum ...mais je voulais être sûre de tes compétences, et elles me paraissent bonnes.
J'ai retenu ton code :
Code:
If Not x Is Nothing Then Range(x, x.Offset(0, 10)).GegeestContenteMerci