Bonjour à Tous,
Dans un module j'ai écrit un code que ne fonctionne pas comme je le voudrai...
Sub Ventiler()
Dim c As Range
For Each c In Range("A4:A500")
If c = True Then c.Resize(1, 15).ClearContents
If c = True Then c.Offset(0, 9).Comment.Delete...