Bonjour Bonjour.

J'ai une erreur dont je ne touve pas la raison dans le code suivant
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
'Création du tableau récapitulatif
    Set CellCourr = CellCourr.Offset(10, 0)
    'Colonnes
    For i = 1 To 6
        CellCourr.Offset(-10, i).Copy
        CellCourr.Offset(0, i).Activate
        ActiveSheet.Paste
    Next
    'Lignes
    For i = 1 To NbZone
        'Nom des lignes
        Offset = -10 * (NbZone + 1 - i)
        OffsetCour = Offset + 7
        CellCourr.Offset(Offset, 0).Copy
        CellCourr.Offset(i, 0).Activate
        ActiveSheet.Paste
        'Contenu
        For j = 1 To 6
            CellCourr.Offset(i, j).Value = CellCourr.Offset(i, OffsetCour).Value
        Next
    Next
C'est une erreur que j'ai déjà rencontrée, et que j'ai contournée. mais cette fois j'aimerais comprendre pour plus me faire balader.
Si quelqu'un peut m'expliquer ce que veut dire cet echec de méthode..., je suis aux anges !

Merci d'avance