Pour F9 feuille DEVIS j'ai changé ça
C'est bon ?
Private Sub OK_Click()
Dim N As Long
N = Me.Cbo_NoClient.ListIndex
If N > 0 Then
With Worksheets("DEVIS")
.Range("H2").Value = Me.TextBox_N°Client.Value
.Range("F9").Value = Me.Cbo_Societe.Value
.Range("F10").Value = Me.TextBox_Adresse.Value
.Range("F11").Value = Me.TextBox_Ville.Value
.Range("B15").Value = Me.TextBox_Telephone.Value
.Range("B16").Value = Me.TextBox_Email.Value
Unload Me
End With
Else
MsgBox "Veuillez choisir un client"
End If
End Sub