Affichage cellule

Bonjour je voudrais que sur ma feuille 2 s'affiche :

A1 la cellule D2 de la feuille 1

A3 la cellule D3 de la feuille 1

A5 la cellule D4 de la feuille 1

A7 la cellule D5 de la feuille 1

A9 la cellule D6 de la feuille 1

et aussi

C1 la cellule D7 de la feuille 1

C3 la cellule D8 de la feuille 1

C5 la cellule D9 de la feuille 1

C7 la cellule D10 de la feuille 1

C9 la cellule D11 de la feuille 1

et ainsi de suite ?

Bonjour,

Voici une idée de ce qui pourrait être fait, mais sans le fichier difficile à être sûr que cela soit la bonne solution.

Bonjour despekill, ArnaudLBRD, le forum,

Un essai....

Sub Bouton1_Cliquer()
 Dim col%, lig%, derlig%, i%

  Application.ScreenUpdating = False '...........................................désactive le rafraichissement de l'écran pendant la boucle

  Sheets("Feuil2").Cells.ClearContents '.........................................efface les données existantes sur feuil2

  With Sheets("Feuil1") '........................................................agit sur la Feuil1
   derlig = .Range("D" & Rows.Count).End(xlUp).Row '.............................définit la dernière ligne de la colonne D
       i = 2 '...................................................................ligne de départ Feuil1
     col = 1 '...................................................................colonne de départ Feuil2
     lig = 1 '...................................................................ligne de départ Feuil2
    Do While i <= derlig '.......................................................boucle de la ligne 2 à la dernière sur Feuil1
      If .Range("D" & i) <> "" Then '............................................si cellule en D est remplie
       .Range("D" & i).Copy Sheets("Feuil2").Cells(lig, col): lig = lig + 2 '....on copie la cellule sur feuil2, on incrémente la ligne de 2
        If lig = 11 Then '.......................................................si on atteint la ligne 11 de Feuil2
         lig = 1: col = col + 2 '................................................on revient à la ligne 1, on change de colonne
        End If
      End If
     i = i + 1 '.................................................................passe à la ligne suivante sur Feuil1
    Loop
  End With
   Sheets("Feuil2").Activate '...................................................on active la Feuil2
  Application.CutCopyMode = False '..............................................on désactive la copie
End Sub

Cordialement,