XL 2007 Loading bar sujet

Bonjour
j'ai un simple script qui sert a cacher des lignes dans ma feuille excel et j'aimerais bien que vous m'aidez a afficher une barre de progression lorsque le script est entrain de s'executer ; Merci

Private Sub CommandButton1_Click()
For x = 1 To 6
Rows(x).EntireRow.Hidden = False
Next x
For i = 18 To 3000
If Range("ag" & i).Value = "Phasing -EX" Then
Rows(i).EntireRow.Hidden = False
Rows(i + 3).EntireRow.Hidden = False
Rows(i + 6).EntireRow.Hidden = False
End If
Next i
End Sub