Messagebox et liste

Bonjour

Actuellement, un msgbox récapitule les dates passées, je voudrais faire des msgbox pour chaque catégorie et non plus une globale. je maîtrise les codes pour passer d'une à l'autre par des option Annuler, OK... mais n'arrive pas à les créer.

Merci de votre aide

Sub alerte()

Dim w1 As Worksheet

Dim i As Long

Dim D As Date

Dim j As Integer

Dim Liste As String

Set w1 = Worksheets("Effectif") 'Feuille qui contient les alertes

D = Date

' ********************************* fin de BUS

For i = 3 To w1.Range("AE" & Rows.Count).End(xlUp).Row

Select Case w1.Cells(i, "AE").Value

Case "Néant"

'ici le code prévu à cet effet ou rien

Case Else

ladate = w1.Range("AE" & i)

If ladate <> "" Then

p = D - ladate

If p >= 0 Then Liste = Liste & vbLf & "L'abonnement de bus pour " & Cells(i, "C").Value & " a expiré depuis le " & Cells(i, "AE")

End If

End Select

Next i

' ********************************* fin de CMU

For i = 3 To w1.Range("Y" & Rows.Count).End(xlUp).Row

ladate = w1.Range("Y" & i)

If ladate <> "" Then

p = D - ladate

If p >= 0 Then Liste = Liste & vbLf & "La CMU pour " & Cells(i, "C").Value & " a expiré depuis le " & Cells(i, "Y")

If p > -30 And p < 0 Then Liste = Liste & vbLf & "La CMU pour " & Cells(i, "C").Value & " expirera le " & Cells(i, "Y").Value

End If

Next i

' ********************************* fin d'ATJM

For i = 3 To w1.Range("T" & Rows.Count).End(xlUp).Row

ladate = w1.Range("T" & i)

If ladate <> "" Then

p = D - ladate

If p >= 0 Then Liste = Liste & vbLf & "L'ATJM pour " & Cells(i, "C").Value & " a expiré depuis le " & Cells(i, "T").Value

If p > -30 And p < 0 Then Liste = Liste & vbLf & "L'ATJM pour " & Cells(i, "C").Value & " expirera le " & Cells(i, "T").Value

End If

Next i

' ********************************* Fin d'autorisation de travail

For i = 3 To w1.Range("AU" & Rows.Count).End(xlUp).Row

ladate = w1.Range("AU" & i)

If ladate <> "" Then

p = D - ladate

If p >= 0 Then Liste = Liste & vbLf & "L'autorisation de travail pour " & Cells(i, "C").Value & " a expiré depuis le " & Cells(i, "AU").Value

If p > -30 And p < 0 Then Liste = Liste & vbLf & "L'autorisation de travail pour " & Cells(i, "C").Value & " expirera le " & Cells(i, "AU").Value

End If

Next i

MsgBox Liste, vbOKOnly + vbInformation, "Alertes"

End Sub

J'ai fais plusieurs listes