Sub test()
'Remplissage feuilles
Dim Fform As Worksheet
Set Fform = Worksheets("Formulaire")
Dim Fbased As Worksheet
Set Fbased = Worksheets("Base de donnée Client")
' Zone 1 Formulaire
TF = Fform.Range(Fform.Cells(11, 3), Fform.Cells(40, 3))
' Transfert
' x position de la ligne vides a remplire dans la feuilles base donnée
x = Fbased.Cells(65536, 1).End(xlUp).Row + 1
Fbased.Cells(x, 1) = TF(1, 1)
Fbased.Cells(x, 2) = TF(2, 1)
Fbased.Cells(x, 7) = TF(3, 1)
Fbased.Cells(x, 3) = TF(4, 1)
Fbased.Cells(x, 4) = TF(5, 1)
Fbased.Cells(x, 5) = TF(6, 1)
Fbased.Cells(x, 8) = TF(7, 1)
Fbased.Cells(x, 9) = TF(8, 1)
Fbased.Cells(x, 10) = TF(9, 1)
Fbased.Cells(x, 11) = TF(10, 1)
Fbased.Cells(x, 6) = TF(11, 1)
Fbased.Cells(x, 12) = TF(14, 1)
Fbased.Cells(x, 13) = TF(20, 1)
Fbased.Cells(x, 14) = TF(21, 1)
Fbased.Cells(x, 16) = TF(22, 1)
Fbased.Cells(x, 17) = TF(23, 1)
Fbased.Cells(x, 18) = TF(24, 1)
Fbased.Cells(x, 19) = TF(26, 1)
Fbased.Cells(x, 23) = TF(27, 1)
Fbased.Cells(x, 20) = TF(28, 1)
End Sub