Résultats de la recherche

Bonjour à tous, Je viens de m'inscrire sur ce forum où j'ai déjà réussi à trouver la moitié de mon bonheur avec le formule ci-dessous: Sub sem_encours() Dim cellule As Range For Each cellule In Sheets("PERSONNEL").Range("C7:NI7") If cellule = Date Then ActiveWindow.ScrollColumn =...