Modifier macro dans USF

[marc]

SALUT LE FORUM,


je voudrais modifier la macro suivante de mon USF :
'Private Sub ListBox1_Click()

'End Sub

'Private Sub UserForm_Initialize()
'Dim c As Range

'reaffiche tous les dimanches
'Rows('8:46').Hidden = False

'With ListBox1
.MultiSelect = fmMultiSelectMulti
.ListStyle = fmListStyleOption
.ColumnCount = 2
.ColumnWidths = '70;0'

'For Each c In Range('b8:b46')
If c = 'DIMANCHE' Then
.AddItem c & ' (ligne ' & c.Row & ')'
.List(.ListCount - 1, 1) = c.Row
End If
Next c
'End With

'UserForm1.Repaint
'End Sub

A la place que dans l'usf, apparraissent les dimanches avec le n° de ligne, je voudrais quand dans l'usf apparraissent les dimanches avec les jours (format jj) correspondantes qui se trouvent colonne c8 à 46.

De plus, je voudrais que les dimanches qui non pas de jour n'apparraissent pas dans l'usf
Je suis nul en vba et je vous remercie de votre aide
a+