valider une cellule pour récupérer les données

[Soucieux d'avancer]

bonjour,
voici le code suivant qui permet de récupérer les info dont j'ai besoin mais j'ai un souci !

en D1 une valeur de 1 à 12 correspondant au mois de l'année
1=janvier et ainsi de suite jusqu'à 12 = décembre!

en changeant manuellement D1 on obtient les données du mois choisi et ces valeurs changent chaque mois.

le code suivant me permet de récupérer les données du mois de janvier mais impossible d'obtenir les données des mois suivants ! j'obtiens toujours celles du mois de janvier !

Comment faire pour incrémenter la valeur de D1, de faire comme si on appuyait sur entrée pour que les données du mois ce mettent à jour et ensuite que les données soient récupérées !?



Private Sub Calcul_Click()
linrecap = 7
a = Worksheets('Synthèse').Range('D1').Value
For a = 1 To 12
Worksheets('Synthèse').Calculate
derlin = Worksheets('Synthèse').Range('A30').Row
For x = 14 To derlin
Sheets('Feuil1').Range('B' & linrecap) = Worksheets('Synthèse').Range('B' & x)
Sheets('Feuil1').Range('C' & linrecap) = Worksheets('Synthèse').Range('M' & x)
Sheets('Feuil1').Range('E' & linrecap) = Worksheets('Synthèse').Range('N' & x)
Sheets('Feuil1').Range('F' & linrecap) = Worksheets('Synthèse').Range('L' & x)
Sheets('Feuil1').Range('G' & linrecap) = Worksheets('Synthèse').Range('K' & x)
linrecap = linrecap + 1
Next x
Next a
End Sub

le fichier est trop gros pour l'envoyer, désolé
Merci par avance

 

[soucieux d'avancer]

désolé pour le dérangement ... j'ai trouvé tout seul

Merci