Hello,
Merci pour ton aide, je comprends que je suis un peu casse-pied !
Je ne vais malheureusement pas avoir le temps de me replonger dans mes souvenirs de programmation, donc je préfère laisser tomber le projet parce que je suis pas capable de finir le code que tu m'as donné.
J'ai essayé plusieurs choses mais ça ne marche pas et je pense qu'il faut avoir un bon niveau...
Private Sub CommandButton1_Click()
Dim prenom As String
Dim tableau, monTableau
Dim nbLig
'initialisations
prenom = TextBox1
nbLig = 0
ligFin = Worksheets("Base").Range("a" & Rows.Count).End(xlUp).Row
monTableau = Worksheets("Base").Range("a2", "e" & ligFin) 'ton tableau va jusqu'à la colonne e
'pas jusqu'à la colonne M
For i = LBound(monTableau, 1) To UBound(monTableau, 1)
If monTableau(i, 1) = prenom Then
nbLig = nbLig + 1
End If
Next i
If monTableau(i, 1) = prenom Then
tableau(i, 1) = monTableau(i, 1)
tableau(i, 3) = monTableau(i, 3)
tableau(i, 4) = monTableau(i, 4)
End If
If nbLig > 0 Then
ReDim tableau(1 To nbLig, 1 To 5)
'la suite du code
End If
Unload UserForm1
End Sub