Coller Si cellule vide

Bonsoir,

j'ai réalisé une macro pour copier-transposé des données sur une autre feuille. Est ce qu'il est possible de transposé dans une cellule que si elle est vide ?

Par exemple transposé dans E4, ensuite comme E4 est rempli faudrait transposé dans E13, et si E13=1 transposé dans E22, et si E22=1 passé dans E31. Si les quatre sont pleines je pense faire une boite de dialogue disant que les cellules sont pleines et enregistré la feuille sous le numero de lot et rouvrir un nouveau.

Est ce que c"est clair ?

Merci

Bonsoir

A étudier

Sub Principe()
Dim Ligne As Long

  For Ligne = 4 To 31 Step 9
    If IsEmpty(Range("E" & Ligne)) Then
      '
      ' Copier/Transposer
      '
      Exit Sub
    End If
  Next Ligne
  MsgBox "Les cellules sont pleines"
End Sub