[RESOLU] Liste d'alertes en un seul message

Sub Message_Alerte()
'pour les alertes machines
Dim alerte As Range
Dim alertemachine As Range
Dim Valeur As String
Dim Date1 As Date

    With Worksheets("BD")
        For Each alertemachine In .Range("A4:A" & .Range("A" & Rows.Count).End(xlUp).Row) '.Row '.Range("Alerte_Machine")
            If .Visible = True And alertemachine.Offset(0, 5) = "2" Then
                Valeur = alertemachine
                Date1 = alertemachine.Offset(0, 6)
                mes = mes & Valeur & " à faire avant le : " & Date1 & "." & vbLf
            End If
        Next
    If mes <> Empty Then
        MsgBox "ATTENTION : Controle Technique pour " & vbLf & mes, vbInformation, "INFORMATION MATERIEL"
    End If
    End With
End Sub