Re : Recherche du dernier Nom
bonjour,
Peut-être en modifiant cette procédure (rajouter les parties en gras):
Private Sub Nom_Change()
derligne = Sheets("FSCP").Range("B65536").End(xlUp).Row
For i = derligne To 3 Step -1
If Cells(i, 2) = Nom Then col = i: i = 3
Next i
With Sheets("Liste")
Me.prénom = .Cells(Me.Nom.ListIndex + 2, 2)
Me.fonction = .Cells(Me.Nom.ListIndex + 2, 3)
Me.structure = .Cells(Me.Nom.ListIndex + 2, 4)
' Me.avec = .Cells(Me.Nom.ListIndex + 2, 5)
' Me.sans = .Cells(Me.Nom.ListIndex + 2, 6)
End With
With Sheets("FSCP")
Me.avec = .Cells(col, 10)
Me.sans = .Cells(col, 11)
End With
End Sub