Public val1, val2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E3]) Is Nothing And Target.Count = 1 Then Exit Sub
val2 = [E3].Value
If val1 <> val2 Then Remplacer
End Sub
Sub Remplacer()
If val1 <> val2 Then
Range("C3:C6").Select
Selection.Replace What:="Dossier type", Replacement:=[E3].Value, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End If
val1 = [E3].Value
End Sub