With Sheets("Fiche Agent")
.Range("B5") = TextBox2
.Range("B6") = TextBox3
.Range("B8") = TextBox4
.Range("B9") = TextBox5
.Range("B10") = TextBox6
.Range("B12") = TextBox7
.Range("h5") = TextBox8
.Range("h7") = ComboBox1
.Range("h8") = ComboBox2
.Range("h9") = ComboBox3
.Range("h10") = TextBox9
.Range("h12") = TextBox10
.Range("h13") = TextBox11
End With
With Sheets("Synthèse")
.Range("B5") = TextBox2 'à adapter
.Range("B6") = TextBox3 'à adapter
.Range("B8") = TextBox4 'à adapter
.Range("B9") = TextBox5 'à adapter
.Range("B10") = TextBox6 'à adapter
.Range("B12") = TextBox7 'à adapter
.Range("h5") = TextBox8 'à adapter
.Range("h7") = ComboBox1 'à adapter
.Range("h8") = ComboBox2 'à adapter
.Range("h9") = ComboBox3 'à adapter
.Range("h10") = TextBox9 'à adapter
.Range("h12") = TextBox10 'à adapter
.Range("h13") = TextBox11 'à adapter
End With
'.... la suite du code...