Autre choix que Dateserial

Sub Traitement()
Dim S As Worksheet
Dim Plage As Range
Dim i&
Dim R As Range
Dim A$
Dim T$()
Dim cpt&  'compteur

Set S = Sheets("Feuil1") 'à adapter
On Error Resume Next
Set Plage = Application.InputBox(prompt:="Sélectionner la plage cible", Type:=8)
If Err <> 0 Then Exit Sub

'--- Boucle de recherche ---
For i& = 1 To Plage.Cells.Count Step 2
  Set R = Application.Union(Plage(i&), Plage(i& + 1))
  A$ = FormatDate_mm_yyyy( _
            Les2Cellules_Debut:=S.Range("b2:c2"), _
            Les2Cellules_Fin:=S.Range("e2:f2"), _
            Les2Cellules_Cible:=R)
  If A$ <> "" Then
    cpt& = cpt& + 1
    ReDim Preserve T$(1 To 1, 1 To cpt&)
    T$(1, cpt&) = A$
  End If
Next i&

'--- Inscription dans la feuille de réception ---
If cpt& > 0 Then
  Set S = Sheets("Feuil2") 'à adapter
  '°°° Pour effacer l'existant de A2 à Ax °°°
  Set R = S.Range(S.Cells(2, 1), S.Cells(S.[a1].End(xlDown).Row, 1))
  R.ClearContents
  '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
  Set R = S.Range("a2:a" & cpt& + 1 & "")
  R = Application.WorksheetFunction.Transpose(T)
  R.NumberFormat = "mm/yyyy"    'format
End If

End Sub

Private Function FormatDate_mm_yyyy(Les2Cellules_Debut As Range, Les2Cellules_Fin As Range, Les2Cellules_Cible) As String
Dim C As Range
Dim A$
Dim x As Date
Dim y As Date
Dim z As Date
'---
For Each C In Les2Cellules_Debut
  A$ = A$ & Space(1) & CStr(C)
Next C
x = FormatDateTime(A$, vbGeneralDate)
A$ = ""

For Each C In Les2Cellules_Fin
  A$ = A$ & Space(1) & CStr(C)
Next C
y = FormatDateTime(A$, vbGeneralDate)
A$ = ""

For Each C In Les2Cellules_Cible
  A$ = A$ & Space(1) & CStr(C)
Next C
z = FormatDateTime(A$, vbGeneralDate)
A$ = ""
'---
If z >= x And z <= y Then
  FormatDate_mm_yyyy = Format(CStr(z), "mm/yyyy")
End If
End Function

Set S = Sheets("Feuil2") 'à adapter
  '°°° Pour effacer l'existant de A2 à Ax °°°
  Set R = S.Range(S.Cells(2, 1), S.Cells(S.[a1].End(xlDown).Row, 1))
  R.ClearContents
  '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
  Set R = S.Range("a2:a" & cpt& + 1 & "")
  R = Application.WorksheetFunction.Transpose(T)
  R.NumberFormat = "mm/yyyy"    'format