synthetiser un code

Bonjour,
j'ai un petit soucis.
voici un bout de code


For Lig = 8 To 9
If Cells(Lig, 5).Value = "30_divers\" Then
FichierATester = [M2] + Cells(Lig, 5) + Cells(Lig, 9)

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(FichierATester)


Cells(Lig, 11).Value = F.DateLastModified

End If
Next Lig

For Lig = 12 To 18
If Cells(Lig, 5).Value = "30_divers\" Then
FichierATester = [M2] + Cells(Lig, 5) + Cells(Lig, 9)

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(FichierATester)


Cells(Lig, 11).Value = F.DateLastModified

End If
Next Lig

For Lig = 21 To 23
If Cells(Lig, 5).Value = "30_divers\" Then
FichierATester = [M2] + Cells(Lig, 5) + Cells(Lig, 9)

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(FichierATester)


Cells(Lig, 11).Value = F.DateLastModified

End If
Next Lig

Je souhaiterai le synthétisé pour éviter que lorsque je rajoute une ligne dans mon tableau je ne sois plus obligé de retourner dans le code pour rajouter ma ligne dedans...
Tout en sachant que mon tableau comporte au total 130 lignes et que a cet endroit: Cells(Lig, 5) la cellule contient des textes différents voir pas du tout


merci