Public Sub JoJoAG()
Dim I As Long
For I = 1 To Range('Feuil1!AG65536').End(xlUp).Row
If Range('Feuil1!AG' & I).Text Like '*1*' Then _
Range('Feuil1!AG' & I).NumberFormat = Chr(34) & Replace(Range('Feuil1!AG' & I).Text, '1', '0') & ''''
Next I
End Sub