Bonjour tout le monde,

Je voudrai copier des cellules non vides dans un nouveau onglet en transposé :

Exemple:

05/04/2018 08/04/2018 10/04/2018
Italy (9h-14h) Romania Romania
Slovenia Italy
UK

Ce que je veux avoir :

Date Pays
05/04/2018 Italy
08/04/2018 Romania
Slovenia
10/04/2018 Romania
Italy
UK


J'ai essayé ce code mais ça ne marche pas

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CopyPaste()
Dim last_row As Integer: Dim last_column As Integer
Dim j As Integer: Dim i As Integer
Dim HDate, Pays As String
 
Sheets("Holiday").Select
For i = 0 To last_column
  For j = 0 To last_row
  Next j
Next i
     If (Cells(i, j).Value <> "") Then
     A(k) = i(HDate)
     B(k) = j(Pays)
     End If
End Sub

Merci pour votre aide.