J'ai une page de donnée qui s'appel "Historiques" avec un tableau qui contient une liste de commandes. L'entête du tableau occupe l'espace des 2 premières rangée (row). Je veux vérifier dans la colomn F pour les cellules vides (date de reception). Si jamais la cellule est vide, copier la rangée à une autre page qui s'appel "En_Cours" qui contient la même en tête de tableau.
_______________________________________________________________________________________________
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Update()
 
Dim Lastrow As Long
For i = 3 To 300
For j = 1 To 13
If Sheets("Historiques").Cells(i, 6) = "" Then
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("En_Cours").Cells(Lastrow, j) = Sheets("Historiques").Cells(i, j)
Else
 
End If
Next j
Next i
End Sub
______________________________________________________________________________________________________
Voici ce à quoi je suis arrivé, mais sa marche pas comme je le voulais, je ne comprend pas trop ce qui ne marche pas.

ce serais chouette si quelqu'un pouvais m'aider

Merci