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