C'est vraiment louche parce que chez moi tout fonctionne.
Et si tu essaye de coller le bout de code dans ton fichier à toi ?
tiens je te le joins, colle cela dans thisworkbook puis enregistre en xlsm et rouvre le fichier pour voir.
Private Sub Workbook_Open()
Dim ajd As Date 'On définit le type de variable
ajd = Format(Now, "dd/mm/yyyy") ' ce format permet d'afficher la date d'aujourd'hui JJ/MM/AAA
compteur = "" 'Ceci va nous servir de stocker les documents à afficher à la fin du code
ligne = 1 'c'est la où nos données commencent
While Cells(ligne, "C") <> "" 'tant que la colonne C nest pas vide on faot les instructions suivantes
If Cells(ligne, "C").Value - ajd < 30 Then 'si la date du documet - la date d'ajd est < 30
compteur = compteur + Cells(ligne, "A") & " " 'on stock dans compteur les documents
End If
ligne = ligne + 1 'on teste la ligne suivante
Wend
MsgBox (compteur & "Arrivent à écheance")
End Sub