Remplir combobox par défaut

Bonsoir au forum,

Comment modifier le code ci dessous afin d'avoir le 1er nom d'utilisateur dans la combobox par défaut

Utilisater MADA1

Mot de passe 111

Merci

Private Sub UserForm_Initialize()

Me.BackColor = RGB(168, 184, 176)

'Sheets("MADA").Unprotect Password:="toto"

With Feuil1.[A1].CurrentRegion

' .Parent.Visible = xlSheetVeryHidden

If .Rows.Count > 1 Then CboUser.List = .Offset(1).Resize(.Rows.Count - 1).Value

End With

tbxPW.PasswordChar = "*"

'Sheets("MADA").Protect Password:="toto" CboUser

End Sub

Bonjour essayez comme ceci

Private Sub UserForm_Initialize()
Me.BackColor = RGB(168, 184, 176)
'Sheets("MADA").Unprotect Password:="toto"
With Feuil1.[A1].CurrentRegion
' .Parent.Visible = xlSheetVeryHidden
If .Rows.Count > 1 Then CboUser.List = .Offset(1).Resize(.Rows.Count - 1).Value
End With
me.cbouser = sheets("MADA").[A2]
tbxPW.PasswordChar = "*"
'Sheets("MADA").Protect Password:="toto" CboUser
End Sub

Bonjour Machin,

Bien joué, ça fonctionne

Merci