Sub test()
Dim PremiereLigneVide As Long
Dim ColonneD As Long
Dim DateCellule As Date, DateAujourdhui As Date
Application.ScreenUpdating = False 'Gèle l'écran pendant l'exécution de la macro
PremiereLigneVide = Cells(3, 4).End(xlDown).Row 'Détermine la première ligne vide sous la cellule de départ
For i = 3 To PremiereLigneVide 'Boucle sur
'On fait des test sur la valeur que prend la cellule(i,4)
Select Case Cells(i, 4)
Case "tata" 'Si la valeur est tata, alors les cellules AI et AK prennent la valeur 1
Cells(i, 35).Value = 1
Cells(i, 37).Value = 1
Case "toto" 'Si la valeur est toto, alors la cellule AJ prend la valeur 1
Cells(i, 36).Value = 2
Case Else 'Dans tous les autres cas, on donne autre à la cellule AI
Cells(i, 35).Value = "Autre"
End Select
DateAujourdhui = Now 'Récupère la date d'aujourd'hui
DateCellule = Cells(i, 13) 'Récupère la date de la cellule (i,13), soit la colonne M
'On va faire un test pour voir si la date de la colonne M est plus petite qu'aujourd'hui.
If DateCellule < DateAujourdhui Then 'Si c'est le cas et que la date est plus petite, alors
Cells(i, 13).Interior.ColorIndex = 3 'Colorie la cellule en rouge
Else 'Sinon
Cells(i, 13).Interior.ColorIndex = xlNone 'Ne colorie pas
End If
Next i 'Incrémente la boucle
End Sub