Bonjour BrunoM45,
Un millier de merci pour cette réponse ultra rapide.
J'ai donc appliqué ton code au fichier d'orgine mais il me marque une erreur d'execution pour dépassement de capacité (sur la ligne en rouge et gras).
pourtant par rapport au fichier envoyé hier la seule chose qui change c'est qu'il y a plus de lignes et que la date est en H et le titre en C.
merci de ton aide.
voici le code que j'ai adapté :
[code][/
Private Sub CommandButton3_Click()
'vérifier les deadlines'
Dim DLig As Long, Lig As Long, Msg As String
Dim Ecart As Integer, MaDate As Date
Msg = ""
With Sheets("ACTIVITÉ 2017")
DLig = .Range("C" & Rows.Count).End(xlUp).Row
For Lig = 2 To DLig
MaDate = .Range("H" & Lig)
Ecart = DateDiff("d", Date, MaDate, vbMonday)
Select Case Ecart
Case 0
Msg = Msg & .Range("C" & Lig) & " doit être traité aujourd'hui" & vbCr
Case 1
Msg = Msg & .Range("C" & Lig) & " doit être traité demain" & vbCr
Case Else
If Ecart > 0 And Ecart <= 5 Then
Msg = Msg & .Range("C" & Lig) & " doit être traité dans " & Ecart & " jours" & vbCr
End If
End Select
Next Lig
End With
MsgBox Msg
End Sub code]