Option Explicit
Dim i As Long, ValM As String, Taille As Long
Sub RajoutDoublon()
Taille = ThisWorkbook.Sheets("Synthèse").Range("A" & Cells.Rows.Count).End(xlUp).Row
For i = 2 To Taille
If Range("A" & i) = "< DOUBLON >" Then Range("M" & i) = "< DOUBLON >"
ValM = Range("M" & i)
If ValM = "" Then
Range("N" & i).Clear
Range("N" & i).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("N" & i).Borders(xlEdgeTop).LineStyle = xlContinuous
Range("N" & i).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("N" & i).Borders(xlEdgeRight).LineStyle = xlContinuous
ElseIf ValM <> "" And ValM < Date Then
Range("N" & i) = "Pas de date précise"
ElseIf ValM = "< DOUBLON >" Then
Range("N" & i) = "< DOUBLON >"
End If
Next i
End Sub