rendre un code VBA plus rapide

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 21/12/2009 par pascal
'

    With Sheets("Tableau de bord général") 'lignes raboteuses
   Dim i As Integer
   For i = 4 To 40
  If Range("c" & i).Value = 0 Then
Range("q1").Value = Range("r1").Value
   Else
   .Hyperlinks.Add Anchor:=Range("c" & i), Address:=Range("q" & i).Value, _
        SubAddress:=Range("r" & i).Value, TextToDisplay:=Range("p" & i).Value
   End If
  Next i
    End With
    With Sheets("Tableau de bord général")
    Dim a As Integer 'lignes semis
   For a = 42 To 78
  If Range("c" & a).Value = 0 Then
Range("q1").Value = Range("r1").Value
   Else
   .Hyperlinks.Add Anchor:=Range("c" & a), Address:=Range("q" & a).Value, _
        SubAddress:=Range("r" & a).Value, TextToDisplay:=Range("p" & a).Value
   End If
  Next a
    End With
  With Sheets("Tableau de bord général")
     Dim o As Integer 'lignes tracteurs
   For o = 80 To 119
  If Range("c" & o).Value = 0 Then
Range("q1").Value = Range("r1").Value
   Else
   .Hyperlinks.Add Anchor:=Range("c" & o), Address:=Range("q" & o).Value, _
        SubAddress:=Range("r" & o).Value, TextToDisplay:=Range("p" & o).Value
     
   End If
  Next o
    End With
    With Sheets("Tableau de bord général")
     Dim l As Integer 'lignes balayeuses
   For l = 121 To 144
  If Range("c" & l).Value = 0 Then
Range("q1").Value = Range("r1").Value
   Else
   .Hyperlinks.Add Anchor:=Range("c" & l), Address:=Range("q" & l).Value, _
        SubAddress:=Range("r" & l).Value, TextToDisplay:=Range("p" & l).Value
     End If
  Next l
    End With
    With Sheets("Tableau de bord général")
     Dim m As Integer 'lignes semis
   For m = 146 To 200
  If Range("c" & m).Value = 0 Then
Range("q1").Value = Range("r1").Value
   Else
   .Hyperlinks.Add Anchor:=Range("c" & m), Address:=Range("q" & m).Value, _
        SubAddress:=Range("r" & m).Value, TextToDisplay:=Range("p" & m).Value
 
                    
 
 
 
    End If
  Next m
    End With
   
 
    
End Sub