Sub Remplacer()
If val1 <> val2 Then
If [B9] Like "Dossier*" Then
Range("B9:B22").Select
Selection.Replace What:="Dossier type", Replacement:=[B7].Value, LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Else
Cells(9, 2) = Replace(Cells(9, 2), [Left(B9,Find(" ",B9))], [B7] & " ")
Cells(22, 2) = Replace(Cells(22, 2), [Left(B22,Find(" ",B22))], [B7] & " ")
End If
End If
val1 = [B7].Value
End Sub