Sub modifactif(nom, datee, grade, adresse, cp, ville, telfixe, telpro, telport, mail)
Sheets("effectif_actifs").Activate
With UserForm3.ComboBox1
If .ListIndex <> -1 Then
Cells(.ListIndex + 5, 3).Value = datee
Cells(.ListIndex + 5, 4).Value = grade
End If
End With
End Sub