VBA selection plage de cellule

Bonjour,


voici un code pour selectionner une plage de cellule avec 2 variables Long:

Private Sub Validation_Click()

Dim a As Long, b As Long

Do 'je cherche mon OF saisi dans la colone "A"
a = a + 1
Loop Until Application.Cells(a, 1) = SaisiOf

Do 'je cherche la derniere cellule vide sur la ligne 'a'
b = b + 1
Loop Until Application.Cells(a, b) = Empty

Range Cells(a, 4): Cells(a + 3, b).Select 'je selectionne une plage


End Sub


Je voudrai donc cherché ma valeur 'OF' puis la dernière cellule vide sur la ligne de cette valeur, ensuite selectionner la plage à partir de la 5° cellule de cette meme ligne (a,4) jusqu'à la derniere cellule vide + 3 ligne . . .
Exemple: si ma valeur est en A1, et que la derniere cellule est J1 je voudrai selectionner de E1 à J3

voilà j'espere que vous me comprendrez mon code bloque sur la ligne Range Cells(a, 4): Cells(a + 3, b).Select avec une erreur : "utilisation incorrecte de la propriété". ..


à l'aide S'il vous plait