en fait Null est du texte
Public Sub convertir()
Dim dernier_ligne As Long
Dim derniere_colonne As Long
Dim parcours_ligne As Long
Dim parcours_colonne As Long
derniere_ligne = Feuil1.Cells(Columns(2).Cells.Count, 2).End(xlUp).Row
derniere_colonne = Feuil1.Cells(5, Cells.Columns.Count).End(xlToLeft).Column
For parcours_ligne = 1 To derniere_ligne
For parcours_colonne = 1 To derniere_colonne
If Feuil1.Cells(parcours_ligne, parcours_colonne) = "Null" Then
Feuil1.Cells(parcours_ligne, parcours_colonne) = 0
End If
Next parcours_colonne
Next parcours_ligne
End Sub