Sheets("colonne_maker").Range("A2:A" & derli).Select
With Selection
.Replace What:=ChrW(916), Replacement:="?", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
.Replace What:=ChrW(224), Replacement:="'", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
.Font.Name = "Times New Roman"
.Font.Size = 10
End With