Sub MaJ_130927_TriEleves()
DeProtect
Columns("D:D").ColumnWidth = 3
Range("D20:D70").Select
Selection.Replace What:="=""T"";1;0", Replacement:="=""T"";0;0", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("D:D").ColumnWidth = 0
Protect
Range("G4:I6").Select
End Sub