VBA nbr de ligne important

Bonjour,

Le code ci-dessous marche très bien mon problème c'est que dans mon document de test ou il y a 5 lignes c'est ok mais implanté dans mon document définitif il y a 28000 lignes dont certaines non renseignées et là tout le code plante obligé de faire gestionnaire de tâche et d'arrêter tout.
Que faire ?

Sub format_date() 


Dim lifin As Long 

Dim d As Date 

Dim li As Integer 

lifin = Range("J" & Rows.Count).End(xlUp).Row 

For li = 1 To lifin 
  d = Replace(Cells(li, 10).Value, ".", "/") 
  Cells(li, 10).Value = d 

Next li 

End Sub

--
La chute n'est pas un échec, l'échec est de rester où l'on est tombé