Private Sub b_modif_Click()
Sheets("TABLEAU").Activate
With consulte
.Value = Me.Txt_code
.Offset(0, 0).Value = Me.Txt_code '# grief
.Offset(0, -1).Value = Me.TextBox1 'nom
.Offset(0, 1).Value = Me.TextBox2 'natur du grief
.Offset(0, 2).Value = Me.TextBox3 ' Date de la sanction
.Offset(0, 5).Value = Me.TextBox5 ' Date dépot grief
.Offset(0, 7).Value = Me.TextBox7 'date réponse employeur
.Offset(0, 8).Value = Me.TextBox8 'date comité grief
.Offset(0, 10).Value = Me.TextBox10 'date demande arbitrage
.Offset(0, 11).Value = Me.TextBox11 'extention d.lais
.Offset(0, 12).Value = Me.TextBox12 'demande arbitrage
.Offset(0, 13).Value = Me.TextBox13 'grief gagné
.Offset(0, 14).Value = Me.TextBox14 'grief retité
.Offset(0, 15).Value = Me.TextBox15 'grief abandonné
.Offset(0, 16).Value = Me.TextBox16 'grief règlé
.Offset(0, 17).Value = Me.ComboBox1 'Nom du délégué responsable
End With
End Sub