Bonjour je cherche une commande qui recopiera des cellules dans d'autre
le truc c'est que cellule sont séparer par d'autre cellule que je ne dois pas copier donc j'ai testé un truc dans le genre mais ça ne réagit pas bien
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
 
Dim l As Long   'l comme ligne
Dim c As Long   'c comme colonne
 
l = 0
boucle:                                  
With Range("ao23")                      
For c = 0 To 22 Step 2                 
.Offset(l, c) = Range("i10").Offset(l, c)  
Next c                                  
End With                                 
If l < 40 Then                          
l = l + 4                                 
GoTo boucle                              
End If
les valeurs ne se recopient pas la où elles le doivent à partir de la 3e ligne

si quelqu'un peut m'aider à savoir pourquoi

merci