Sub ajouter_employe()
Dim tbl
With Sheets("Formulaire")
tbl = Application.Index(.Range("A2:BI2").Value, 1, 0) 'recupere dans tbl ta ligne2 caché dans formulaire
Sheets("BDD").Range("A100000").End(xlUp).Offset(1, 0).Resize(1, UBound(tbl)).Value = tbl 'on transcrit dans BDD
MsgBox "les données de " & .[B5] & " " & .[D5] & " " & .[F5] & " ont été ajoutées à la base de données"
'et on clear le formulaire
Union(.Range( _
"B43,D43,F43,F40,B46,D46,B49,D49,B52,B55,D55,F55,B60,D60,F60,B63,D63,F63,B66,D66,F66,B69,D69,F69,B73:F77,B82,D82,F82,B86,D86,F86,B5" _
), .Range( _
"D5,F5,B8,D8,F8,B11,D11,F11,B14,D14,B17,D17,F17,B20,D20,F20,B23,D23,B26,D26,B29,D29,B34,D34,F34,B37,D37,F40,B40,D40,F40" _
)).ClearContents
End With
Sheets("BDD").Activate
End Sub