[Excel] - [VB] - Delete Cellules italique

Bonjour,

J'ai crée une macro qui me permet de supprimer dans des milliers de données d'un classeur uniquement les cellules où l'information est en Italic.

With Sheets("données")
        
    Calculate
    col_mad = .Range("C2").Value
    col_zr = .Range("D2").Value
    col_fin = .Range("E2").Value
    first_col_date = .Range("F2").Value
        
        For i = col_mad + 1 To col_zr - 1
        
            .Cells(4, i).Value = "colonne_vide" & i
        Next
        
        For i = 5 To ligne
        For j = first_col_date To col_mad
    
            cell_color = .Cells(i, j).Font.ColorIndex
            If cell_color = 4 Then
            .Cells(i, j).Value = ""
            End If
    
        Next j
        Next i
        
    End With

Cela fonctionne très bien, mais c'est lent car beaucoup de données.
Quelqu'un aurait il une meilleur façon de faire et surtout ultra rapide, en comprenant les petits paramètres de ma WITH.



En vous remerciant par avance,