Hum...
Il y a plusieurs solution soit tu modifies
Private Sub CommandButton4_Click()
Dim a
a = Sheets("BaseDeDonnees").Range("A95:L124")
Sheets("Avril").Range("A3:L32") = a
'se deplacer vers avril
Range("A95").Select
End Sub
et tu supprimes la sub avril... et ainsi de suite pour tous les mois
Le transfert ne se fera pas vraiment à chaque saisie mais tu ne le verras pas si tu passes par les boutons pour aller à la feuille... (le transfert se fera avant que tu ne voies la feuille !)
Sinon il faut préciser à quel moment tu veux que le transfert s'effectue : On peut supposer que si tu saisies toujours le poids en dernier c'est le meilleur moment ? Me dire...
Nota : il ne t'aura pas échappé que dans ce transfert les flèches ne suivent pas :
Tu dois mettre ces dernières en colonne M comme dans la base de donnée...
A+