Private Sub Worksheet_Activate()
'pour les alertes machines
Dim alerte As Range
Dim role As String
With Worksheets("BD")
For Each alertemachine In .Range("Alerte_Machine")
Valeur = .Cells(alertemachine.Row, 1)
Date1 = .Cells(alertemachine.Row, 7)
If .Visible = True And alertemachine = "2" Then
MsgBox "ATTENTION : Controle Technique pour " & Valeur & " à faire avant le : " & Date1 & ".", vbInformation, "INFORMATION MATERIEL"
Else
Exit Sub
End If
Next
End With
End Sub