Apprendre à faire une boucle

Option Explicit
Sub Bouton1_QuandClic()
Dim c As Range
Dim feuille As Worksheet
Dim i As Byte
Dim derligne As Integer

'pour chaque cellule de la zone n2:n jusqu'à la derniere cellule non vide
For Each c In Range('n2:n' & Range('n65536').End(xlUp).Row)
        Select Case c 'suivant la valeur de la cellule
                Case 'O': Set feuille = Sheets('Ouv') 'si la valeur est 'O', alors la variable
                'feuille = la feuille Ouv
                Case 'D': Set feuille = Sheets('Dev') 'idem
                Case 'E': Set feuille = Sheets('Enr') 'idem
        End Select
       
        With feuille 'avec la feuille
                derligne = .Range('N65536').End(xlUp).Row + 1 'recherche de la premiere ligne vide
                For i = 1 To 15 'boucle sur les 15 colonnes
                        .Cells(derligne, i) = Cells(c.Row, i) 'copie les valeurs
                Next i
        End With
Next c
End Sub

Cliquez pour agrandir...