Pour ton Bouton 'Modifier' ... tu peux tester le code suivant :
Private Sub CommandButton1_Click()
' Bouton Modifier
Dim Ligne As Long
Dim L As Integer
Dim TB
If MsgBox("Etes-vous certain de vouloir modifier la fiche Enfant ?", vbYesNo, "Demande de confirmation") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
For L = 1 To 135
If Me.Controls("TB" & L).Visible = True And Me.Controls("TB" & L).Value <> "" Then
Ws.Cells(Ligne, L + 2) = Me.Controls("TB" & L)
End If
Next L
End If
End Sub