If Ctrl.Tag <> "" Then
' transfert des dates
If Split(Ctrl.Tag, " ")(2) = "date" Then
.Cells(LigneDeDestination, CByte(Split(Ctrl.Tag, " ")(0))) = CDate(Ctrl.Value)
' Transfert des valeures numérique
ElseIf Split(Ctrl.Tag, " ")(2) = "num" Then
.Cells(LigneDeDestination, CByte(Split(Ctrl.Tag, " ")(0))) = CDbl(Ctrl.Value)
Else
'**********************************************
Select Case Split(Ctrl.Tag, " ")(0)
Case "1", "6"
If Ctrl.Value = True Then .Cells(LigneDeDestination, CByte(Split(Ctrl.Tag, " ")(0))) = Ctrl.Caption
Case Else 'ajout ici
' Transfert des strings
.Cells(LigneDeDestination, CByte(Split(Ctrl.Tag, " ")(0))) = Ctrl.Value
End Select
'**********************************************
End If