Bonjour à tous,
je fais de nouveau appelle à vous car j'ai un bout de code qui commence à me faire criser.
J'ai écris:
Dim DerColonne As Long
DerColonne = Rows(12).Find("*", , , , xlByColumns, xlPrevious).Column
I = 2
For I = 2 To 13
For M = (DerColonne - 2) To 6 Step -5...