Sub Remplacer_2()
Dim Rng As Range
Set Rng = Range("Tableau1[VŒU COLLECTIF n°1 COMBIEN DE COLLÈGUES SONT CONCERNÉS ?]")
Set Rng = Intersect(Rng.Worksheet.[AC:AC,AS:AS,BK:BK,CC:CC], Rng)
Rng.Replace What:="", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub