Bonjour,
en simplifiant le code
With Sheets("ventilation cumulative")
I=6
colonne = .Rows(2).Find(Range("f2"), , , , xlByRows, xlPrevious).Column 'colonne du mois
ligne = .Columns(1).Find(Range("a"&i), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé
.Cells(ligne, colonne) =...