Private Sub touches_Click()
Dim lig As Long
With Feuil1
If UserForm1.OptionButton1.Value = True Then
Select Case touches.Caption
Case Chr(226)
Selection.Value = Selection.Value & Chr(228)
Case Chr(234)
Selection.Value = Selection.Value & Chr(235)
Case Chr(238)
Selection.Value = Selection.Value & Chr(239)
Case Chr(244)
Selection.Value = Selection.Value & Chr(246)
Case Chr(251)
Selection.Value = Selection.Value & Chr(252)
Case Else
Selection.Value = Selection.Value & UCase(touches.Caption)
End Select
Else
Selection.Value = Selection.Value & LCase(touches.Caption)
End If
If touches.Caption = "Delete" Then Selection.ClearContents
End With
If UserForm1.CommandButton54 = True Then
Selection.Value = Selection.Value & Chr(10)
End If
End Sub