Bonjour,

Je souhaiterais faire une boucle avec for each ... next mais je n'arrive pas à poser mon code

Voici ce que je souhaite faire :

Sur la feuille active,
si C12 est différent de ""
si A1 = "SEM A"
alors je copie les cellules B8 -> H14 (soit range("B8").resize(6,6)) de la feuille "SEM A" en E12 -> K18 de la feuille active
Voici un debut de code...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Set Cell = c12
Dim Cell As String
For Each Cell In ActiveSheet
If Cell = "" Then
If ("A1") = "SEM A" Then
Sheets("SEM A").Range("B8").Resize(6, 6).Copy
Cell.Offset(0, 2).Paste
En suite je souhaite boucler toutes les 11 cellules vers le bas, soit offset (11,0) soit :
si C23 est différent de ""
si A1 = "SEM A"
alors je copie les cellules B19 -> H25 (soit range("B19").resize(6,6)) de la feuille "SEM A" en E23 -> K29 de la feuille active

Et je boucle jusqu’à ce que une cellule est soit vide.

Merci à tous ceux qui pourront m'aider...