Mettre en forme mon code VBA

Bonsoir,

J'ai un problème à soumettre aux personnes dont VBA n'a plus de secret ce qui n'est pas mon cas puisque je commence a peine.... voici ce qui me freine.
Je dois extraire 4 cellules (par ligne) d'une liste et alimenter des champs spécifique d'un fichier Words. Je n'ai pas eu de problème pour ma première ligne excel. j'ai défini des signets et c'est le Graal. Mais mon fichier Excel étant constituer de 60 ou 100 enregistrements ce n'est plus la même chose et je suppose qu'il faut variabiliser quelque chose......et là je fais appel au gens expérimentés. Mon petit code ci-dessous qui marche que sur une ligne. Dans excel sur la première ligne j'ai mis ce bouton qui transfère vers words.
En fait quand l'utilisateur voit un PB sur la ligne 4 il utilise le bouton et c'est le range B4, C4, D4 et E4 si c'est la ligne 5 c'est B5,C5,D5 et E5 et ainsi de suite.....

Merci a toutes les personnes qui peuvent m'aider.

Private Sub CommandButton1_Click()
Dim APPLICATION_WORD As Word.Application
Dim DOCUMENT_TYPE As Word.Document
Dim SIGNET As Variant

Set APPLICATION_WORD = CreateObject("word.application") 'ouvre une session word
Set DOCUMENT_TYPE = APPLICATION_WORD.Documents.Open("D:\excel\tata.doc") 'ouvre le document Modèle Word
APPLICATION_WORD.Visible = True 'affiche le Word mode Visualisation.
With DOCUMENT_TYPE
.Bookmarks("Sollicitation").Range.Text = Range("B3")
.Bookmarks("DescriptionC").Range.Text = Range("C3")
.Bookmarks("DescriptionL").Range.Text = Range("D3")
.Bookmarks("DateO").Range.Text = Range("E3")
End With
End Sub

.