Re Salut Fred, Roland, le Forum
Oui tu n'as pas été très clair dans tes explications Fred !
Bon alors deux méthodes bien distinctes :
Sub ClearCellWithoutFormula()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
If Not Cell.HasFormula Then
Cell.ClearContents
End If
Next
End Sub
Ce code effacera le contenu de toutes les cellules de ta feuilles sauf celles contenant une formule...
Mais comme tu parles de tableau, je pense que tu pourrais aussi définir la plage à nettoyer sans avoir à faire une boucle sur toutes les cellules comme la macro ci-dessus...
Sub PlageClearContents()
Range("B11:H16,B18:H18,B20:H23,J11:J23").ClearContents
End Sub
Dans ce dernier code il te faudra redéfinir les plages qui doivent être nettoyées...
Bon Travail
@+Thierry