Bonsoir à tous.
Il faut que je créé un programme permettant à un utilisateur d'entrer un nom afin de créer une nouvelle feuille excel et de copier les données liées à cet utilisateur (peut etre présent plusieurs fois).

Voici mon programme:
______________________________________________________________
Private Sub Ok_Click()
If nom = "" Or nom = " " Then
MsgBox ("Veuillez entrer un nom d'utilisateur pour continuer" ), vbOKOnly
GoTo fin
Else
For ligne = Worksheets("journal" ).UsedRange.Rows.Count To 1 Step -1
If UCase(Worksheets("journal" ).Cells(ligne, 6).Value) = UCase(nom.Value) Then
GoTo suite
End If
Next
MsgBox ("L'utilisateur n'a pas ouvert de session" ), vbOKOnly
GoTo fin
End If
suite:
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = nom
Range("A1:E1" ).Select
ActiveCell.Offset(0, 0).Value = "Id"
ActiveCell.Offset(0, 1).Value = "ouvertureate"
ActiveCell.Offset(0, 2).Value = "ouverture:heure"
ActiveCell.Offset(0, 3).Value = "fermeture date"
ActiveCell.Offset(0, 4).Value = "fermeture heure"
For ligne = Worksheets("journal" ).UsedRange.Rows.Count To 1 Step -1
If UCase(Worksheets("journal" ).Cells(ligne, 6).Value) = UCase(nom.Value) Then
'copier toute la ligne dans la ligne 1ere ligne vide de la feuille nom
End If
Next
fin:
Unload utilisateur
End Sub

Merci d'avance