Ajouter le contenu d'un UserForm à 2 feuilles Excel

Bonjour,

Je souhaiterais ajouter le contenu de mon userform à 2 feuilles appartenant à un même tableau excel, voici mon code actuel, qui me permet d'ajouter le contenu de l'userform à une seule feuille, appelée "Source" :

Private Sub CommandButton2_Click()

'Permet de se positionner sur la feuille source
Sheets("Source").Activate
Range("A1").Select
Selection.End(xlDown).Select 'On se positionne sur la dernière ligne non vide
ActiveCell.EntireRow.Copy
Selection.Offset(1, 0).Select 'On se décale d'une ligne vers le bas
L = ActiveCell.Row
Range("A" & L).Value = TextBox1
Range("B" & L).Value = ComboBox1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox5
If OptionButton1.Value = True Then
Range("E" & L).Value = "HT"
Else
Range("E" & L).Value = ""
End If
If OptionButton2.Value = True Then
Range("E" & L).Value = "TTC"
Else
Range("E" & L).Value = ""
End If
Range("F" & L).Value = TextBox6
Range("G" & L).Value = TextBox7
Range("H" & L).Value = TextBox4
Range("I" & L).Value = ComboBox8
End If
ActiveCell.EntireRow.PasteSpecial xlPasteFormats
MsgBox "Votre projet a bien été ajouté à la base de données", vbOKOnly + vbInformation, "Confirmation ajout"
Unload FrmSaisie

Merci d'avance !

Bonjour

Quel est le nom de la deuxième feuille ?

Bonjour Dan,

La deuxième feuille s’appelle « Suivi »

Alors faites comme ceci :

Private Sub CommandButton2_Click()
Dim feuille()
Dim i As Byte
Dim L As Integer

feuille = Array("Source", "Suivi")

For i = 0 To UBound(feuille)
    With Sheets(feuille(i))
        L = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & L).Value = TextBox1
        .Range("B" & L).Value = ComboBox1
        .Range("C" & L).Value = TextBox2
        .Range("D" & L).Value = TextBox5

        If OptionButton1.Value = True Then
            .Range("E" & L).Value = "HT"
        Else
            .Range("E" & L).Value = ""
        End If

        If OptionButton2.Value = True Then
            .Range("E" & L).Value = "TTC"
        Else
            .Range("E" & L).Value = ""
        End If
        .Range("F" & L).Value = TextBox6
        .Range("G" & L).Value = TextBox7
        .Range("H" & L).Value = TextBox4
        .Range("I" & L).Value = ComboBox8

        With .Range("A" & L - 1).EntireRow
            .Copy
            .PasteSpecial xlPasteFormats
        End With
    End With
Next i
MsgBox "Votre projet a bien été ajouté à la base de données", vbOKOnly + vbInformation, "Confirmation ajout"
Unload FrmSaisie
End Sub

Si ok, merci de ne pas oublier -->

Cordialement