Sub test()
Dim Col As Long, Lig As Long
Lig = 1 ' pour l'exemple
Col = (Format(Date, "mm") * 1) + 81 ' + 81 car CD est la 82em colonne
With Sheets("Feuil1")
.Cells(Lig, Col).Select ' pour l'exemple
If .Cells(Lig, Col).Value * 0.8 < = .Range("DB" & Lig).Value Then
End If
End With
End Sub