Bonjour tout le monde !

Voilà, j'ai un tout petit souci qui, je pense, peut vite se régler mais je ne vois pas comment en tant que débutante...

Je copie certaines cellules d'un TCD dans un autre tableau, seulement lorsque la cellule à copier est vide, la macro s'arrête. Voici une partie de mon code :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Windows("REQUETE MARS.xls").Activate
Range("B5").Select
j = 0
k = 0
While ActiveCell.Value <> ""
If ActiveCell.Value = "APPEL1" Then
    For i = 1 To 20
    If Range("A6").Value = "T.ACTEUR" & i Then
        Range("B6").Offset(0, k).Copy
        Workbooks(fic_journalier & " " & mois & " " & annee & " " & "S" & semaine & ".xls").Activate
        Range("C5").Offset(j, 0).PasteSpecial
        j = j + 1
        Workbooks("REQUETE MARS.xls").Activate
        Range("B5").Offset(0, k).Select
        k = k + 1
        Range("B5").Offset(0, k).Select
    Else
        j = j + 1
        Workbooks("REQUETE MARS.xls").Activate
        Range("B5").Offset(0, k).Select
        k = k + 1
        Range("B5").Offset(0, k).Select
    End If
    Next i
Else
    k = k + 1
    Range("B5").Offset(0, k).Select
End If
Wend
Merci par avance