Sub synthese()
Set f = Sheets(ActiveSheet.Name)
For m = 1 To 12
mois = Format(DateSerial(2014, m, 1), "mmmm")
For ligne = 4 To 12 Step 2
For col = 1 To 7
dt = DateSerial([choixannee], m, Sheets(mois).Cells(ligne - 1, col))
texte = Sheets(mois).Cells(ligne, col)
If texte <> "" Then
Set result = f.[A:A].Find(What:=dt, LookIn:=xlValues)
If Not result Is Nothing Then
f.Cells(result.Row, 2) = Sheets(mois).Cells(ligne, col)
End If
End If
Next col
Next ligne
Next m
End Sub