Salut le forum, Salut Thefa,
je pense que cela devait marcher. Pour incrémenter :
cells(numéro de ligne,numéro de colonne).value=cells(numéro de ligne,numéro de colonne).value+1
pour effacer il faut d'abord que tu definnisses les cellules à effacer :
Range("cellule:cellule").Select (si tes cellules se touchent)
Selection.ClearContents (n'efface que le contenu) ou
Selection.Clear (efface tout)
Robert