Sub RemplirColonne()
Dim deb As Range, derlig1 As Long, derlig2 As Long, derlig As Long
With Sheets("All") 'à adapter
Set deb = .[I8] 'à adapter
On Error Resume Next
derlig1 = Application.Match("zzz", .Columns("B"))
derlig2 = Application.Match(9 ^ 9, .Columns("B"))
On Error GoTo 0
derlig = IIf(derlig1 > derlig2, derlig1, derlig2)
Application.ScreenUpdating = False
deb.Resize(.Rows.Count - deb.Row + 1).ClearContents 'RAZ
If derlig >= deb.Row Then
deb = "=IF(E" & deb.Row & "=""X"","""",1)"
deb.AutoFill deb.Resize(derlig - deb.Row + 1)
End If
End With
End Sub