Enregistrement

Private Sub BtValide_Click()     ' Bouton Enregistrer
    Dim t() As Variant, i As Byte
    If ComboBox1.ListIndex > -1 Then
        t = Array(ComboBox1.Text, "Joueur")
        ActiveSheet.Range("C7:L7").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
        ActiveSheet.Cells(7, 3) = TextNord.Value 'Nom 1er Joueur
        ActiveSheet.Cells(7, 6) = TextEst.Value 'Nom 2éme Joueur
        ActiveSheet.Cells(7, 9) = TextSud.Value 'Nom 3éme Joueur
        ActiveSheet.Cells(7, 12) = TextOuest.Value 'Nom 4éme Joueur
        'ActiveSheet.Cells(7, 15) = TextBox5.Value 'Nom 5éme Joueur
        
        x = Sheets(t(i)).Range("B65536").End(xlUp).Row + 1
        Sheets(t(i)).Cells(x, 2) = TextNord.Value 'Nom 1er Joueur
        Sheets(t(i)).Cells(x, 4) = TextEst.Value 'Nom 2éme Joueur
        Sheets(t(i)).Cells(x, 6) = TextSud.Value 'Nom 3éme Joueur
        Sheets(t(i)).Cells(x, 8) = TextOuest.Value 'Nom 4éme Joueur
        'Sheets(t(i)).Cells(x + 1, 10) = TextBox5.Value 'Nom 5éme Joueur
        Me.TextNord.Value = ""
        Me.TextEst.Value = ""
        Me.TextSud.Value = ""
        Me.TextOuest.Value = ""
    End If
End Sub