Private Sub cmdEnregistrer_Click()
Application.ScreenUpdating = False
Dim iRow As Long
iRow = Sheets("Data").Range("A1048576").End(xlUp).Row + 1
If ValidateForm = True Then
With ThisWorkbook.Sheets("Data")
.Range("A" & iRow).Value = iRow - 1
.Range("B" & iRow).Value = txtName.Value
' .Range("C" & iRow).Value = IIf(OptMr.Value = True, "Mr", IIf(optMme.Value = True, "Mme", "Mle"))
.Range("C" & iRow).Value = IIf(OptMr.Value = True, "Mr", "Mme")
If .Range("C" & iRow).Value <> "" Then .Range("C" & iRow).Value = "Mle"
.Range("D" & iRow).Value = cmbQualification.Text
.Range("E" & iRow).Value = txtCity.Value
.Range("F" & iRow).Value = txtState.Value
.Range("G" & iRow).Value = txtCountry.Value
End With
Call Reset
Else
Application.ScreenUpdating = True
Exit Sub
End If
Application.ScreenUpdating = True
End Sub