Simplifié procédure

Bonjour le forum,

Y aurai il une solution pour simplifier cette procédure. J'ai essayé avec une boucle For mais sans succée

Une idée ?

If Me.Caption = "Secteur Nord" Then

    With Sheets("Prèsence")
        .Range("A13") = Sheets("Données").Range("E2").Text
          .Range("A14") = Sheets("Données").Range("E3").Text
            .Range("A15") = Sheets("Données").Range("E4").Text
              .Range("A16") = Sheets("Données").Range("E5").Text
                .Range("A17") = Sheets("Données").Range("E6").Text
                  .Range("A18") = Sheets("Données").Range("E7").Text
                    .Range("A19") = Sheets("Données").Range("E8").Text
                      .Range("A20") = Sheets("Données").Range("E9").Text
                        .Range("A21") = Sheets("Données").Range("E10").Text
                          .Range("A22") = Sheets("Données").Range("E11").Text
                            .Range("A23") = Sheets("Données").Range("E12").Text

    End With

Merci à tous

Bonjour,

    Dim i As Integer
    With Sheets("Prèsence")
        For i = 13 To 23
            .Range("A" & i) = Sheets("Données").Range("E" & i - 11).Text
        Next i
    End With

Bonjour,

Merci bien. C'est nettement plus court!!

J'aime bien comprendre, c'est comme ca qu'on apprend. Pourquoi ("E" & i - 11) ?

Cordialement

Range("A13") correspond à Range("E2"), donc 11 de moins au niveau des numéros de ligne.

Ben merci bien.

Cordialement Coco