Créer boucle

Bonjour, j'aimerais créer une boucle de ce programme:

Sub test1()

If Workbooks("Test.xlsm").Sheets("ECS").Range("E11") Like "*" Then
Workbooks("Test.xlsm").Sheets("Bouclage").Range("B27").Value = Workbooks("Test.xlsm").Sheets("ECS").Range("E11").Value
Else
MsgBox "Renseigner tronçon"
End If


If Workbooks("Test.xlsm").Sheets("ECS").Range("E11") Like "*" Then
Workbooks("Test.xlsm").Sheets("Bouclage").Range("B28").Value = Workbooks("Test1.xlsm").Sheets("ECS").Range("E11").Value
Else
MsgBox "Renseigner tronçon"
End If


If Workbooks("Test.xlsm").Sheets("ECS").Range("G11") Like "*" Then
Workbooks("Test1.xlsm").Sheets("Bouclage").Range("B29").Value =
Workbooks("Test.xlsm").Sheets("ECS").Range("G11").Value
Else
MsgBox "Renseigner tronçon"
End If

If Workbooks("Test.xlsm").Sheets("ECS").Range("I11") Like "*" Then
Workbooks("Test.xlsm").Sheets("Bouclage").Range("B30").Value = Workbooks("Test.xlsm").Sheets("ECS").Range("I11").Value
Else
MsgBox "Renseigner tronçon"
End If
End sub

Le but est de retranscrire le texte d'une cellule sur 2 (car une cellule sur deux est vide et inversement) de la ligne 11, à partir de la cellule C11 (donc faire varier la sélection d'une colonne sur 2 à partir de la cellule C11) de Sheets("ECS"), dans la colonne B de Sheets("Bouclage") à partir de la ligne 27 (donc retranscrire les données à partir de la cellule B27 sur chaque ligne.

Il faut également que la condition s'arrête lorsqu'il n'y a plus de texte sur la ligne 11 de Sheets("ECS").


Je vous remercie d'avance pour votre précieuse aide...