Salut mab2a,
voici une proposition qui se passe de bouton, le transfert de valeurs s'exécutant dès l'encodage.
Pour ce qui est du nom des feuilles mensuelles et afin d'éviter les erreurs, il faut décider maintenant de leur orthographe (vive le français et ses accents!) car tu utilises "Decembre" dans ta feuille et "Décembre" dans ton post.
J'ai donc, dans cette version, éliminer les accents !
Autre point modifié dans ta feuille 'Centres' : j'ai uniformisé les cellules fusionnées, histoire de ne pas perturber et/ou saboter mes calculs MODULO.
Il est évident que cette macro ne fonctionnera QUE si toutes tes feuilles mensuelles respectent intégralement la même structure !
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iRow%, iCol%, iModR%, iModC%
'
iRow = Target.Row
iCol = Target.Column
iModR = iRow Mod 2
iModC = iCol Mod 6
'
If iModC = 4 Or iModC = 0 Then
iCentre = Cells(iRow, iCol).Offset(iModR - 1, IIf(iModC = 0, -5, -3))
With Worksheets(Choose(Month(Date), "Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
.Cells(3 + (iCentre * 2) + Abs(iModR - 1), 1 + (Day(Date) * 2) + IIf(iModC = 4, 0, 1)) = Target
End With
End If
'
End Sub
A tester...
A+