Sub Command1_Click()
Dim Age As Integer, Fin As Long
List1.Clear
Fin = Range('B65536').End(xlUp).Row - 1
For I = 2 To Fin
If Month(Range('B' & I)) = Month(Date) Then
Age = Year(Date) - Year(Range('B' & I))
R = R + 1
List1.AddItem = Range('A' & I) & ' (' & Format(Range('B' & I), 'dd.mm') & ') ' & Age & ' ans'
End If
Next I
End Sub