Macro lente : remplacer vide par formule

[Acturis]

Bonjour à tous,

Je me permet de venir vers vous pour solliciter votre aide. Dans mon fichier excel j'ai besoin, via une macro, de remplacer toutes les cellules vides d'une plage par une formule RechercheV. J'ai construit une macro qui fonctionne (en cherchant sur internet), elle fonctionne, cependant je la trouve très lente car elle tourne environ 2 minutes pour une petite plage de 500 lignes au sein d'une colonne bien spécifique.

Voici le code :

Sub VPcleaning()
'
'
Sheets("Detailed Assessment").Select
     Dim I As Long
  With Sheets("Detailed Assessment")
  .Activate
    For I = 6 To 505
     If .Cells(I, 19) = "" Then
       .Cells(I, 19).FormulaR1C1 = "=IF(RC[-17]="""","""",VLOOKUP(RC[-17],Data!C[-18]:C[9],28,FALSE))"
     End If
    Next I
  End With

End Sub

Je ne m'y connais pas vraiment en macro. Voyez vous un moyen d’accélérer le processus ?

Le but étant de faire en sorte que si les cellules de la plage (S6;S505), S étant ma colonne 19, et bien le contenu soit automatiquement remplacé par la formule citée dans le code.
Avec mon code je pense que la macro check les cellules une par une, ce qui prend du temps.

Si vous avez un raccourci en tête je suis preneur.

Merci d'avance =)

 

[Acturis]

Merci beaucoup c'est vrai super !