Sub azer2()
Dim a As String, b As String
Dim i As Long, Pos As Integer
For i = 1 To 10
Pos = InStr(1, Cells(i, "C").Value, "DS")
If Not Pos = 0 Then
a = Trim(Left(Cells(i, "C"), Pos - 1))
b = Trim(Right(Cells(i, "C"), Len(Cells(i, "C")) - Pos - 1))
If (a = "" Or IsNumeric(a)) And (b = "" Or IsNumeric(b)) Then Cells(i, "D").Value = "Copie autorisée"
End If
Next
End Sub