XL 2010 Transférer une donnée d'une feuille à l'autre avec bouton

[Louiseleclerc]

À l'aide j'avance plus,

Bonjour j'ai besoin de transférer le résultat de la feuille Bte Fax amendes et courriel dans la feuille Stat du mois voir fichier voila ce que j'ai essayer

With Sheets("btes Fax, Amende, corresp.")

colonne = .Columns(1).Find(Range("f2"), , , , xlByRows, xlPrevious).Column 'colonne du mois

ligne = .Columns(1).Find(Range("a25"), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne du libellé

.Cells(ligne, colonne) = Range("J10") 'inscrit la somme

'MsgBox "Transfert effectué"

End With

Merci beaucoup

Louise