Code pour commence par

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("D4:D7000")) Is Nothing Then
    If Target.Value <> "" Then
      If InStr(Target.Value, "DI") = 0 And InStr(Target.Value, "SI") = 0 Then
        If Left(Target.Text, 2) = "11" Then
          Target.Value = "SI " & Target.Value
        Else
          Target.Value = "DI " & Target.Value
        End If
      End If
    End If
  End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Intersect(Target, Range("D4:D7000")) Is Nothing Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Select Case Left(Target.Value, 2)
Case "11"
Target.Value = "SI " & Target.Value
Case Else
Target.Value = "DI " & Target.Value
End Select
Application.EnableEvents = True
End If
End Sub