Suppression de lignes et Affectation de caractères

Sub Macro1()
'supprime les cellules réellement vides en colonne H
On Error Resume Next
Dim w As Worksheet
For Each w In Worksheets
    w.Range("A1", w.UsedRange).Columns(8).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next
End Sub

Sub Macro2()
Dim w As Worksheet
For Each w In Worksheets
    With w.Range("A1", w.UsedRange).Columns(9)
        .FormulaR1C1 = "=IF(""""&RC[-1]=""0"",0,IF(ISNUMBER(RC[-1]),""*"",""""))"
        .Value = .Value
    End With
Next
End Sub

Sub Macro3()
Dim w As Worksheet
For Each w In Worksheets
    With w.Range("A1", w.UsedRange).Columns(9)
        .FormulaR1C1 = "=IF(""""&RC[-1]=""1"",0,IF(ISNUMBER(RC[-1]),""*"",""""))"
        .Value = .Value
    End With
Next
End Sub

Sub Macro4()
Dim w As Worksheet
For Each w In Worksheets
    With w.Range("A1", w.UsedRange).Columns(9)
        .FormulaR1C1 = "=IF(OR(""""&RC[-1]=""0"",""""&RC[-1]=""1""),0,IF(ISNUMBER(RC[-1]),""*"",""""))"
        .Value = .Value
    End With
Next
End Sub

Sub Macro4()
'affecte le chiffre "0" en colonne "I" dans la cellule de la ligne correspondante
'lorsque tu rencontres le chiffre "0" ou "1" en colonne "H" et une ?toile ("*") en colonne "I"
'lorsque le chiffre est diff?rent de "0" ou "1" en colonne "H".
Dim w As Worksheet
For Each w In Worksheets
  w.Columns("XFD").Clear
   With w.Range("XFD1:XFD" & w.UsedRange.Rows.Count)
    .Formula = "=IF(AND(AND(OR($h1=0,$h1=1),$i1=""*"")+AND($h1<>0,$h1<>1)),0,$i1)"
    w.Columns("XFD").Copy
    w.[i1].PasteSpecial Paste:=xlPasteValues
  End With
w.Columns("XFD").Clear
Next