Sub Ligne_Fact()
Dim Rep As Long
Dim X As Long
Dim Flg_Rep As Boolean
'Réception numéro
Rep = Application.InputBox("N°Travail à facturer ?" & Chr(13) & _
"(juste le nombre)", "CLOTURE DE FACTURE", , , , , , 1)
If Rep = 0 Then Exit Sub
'Recherche de la ligne de travail
For X = 2 To Range("C65536").End(xlUp).Row
If "Travail " & Rep = Range("C" & X) Then
Flg_Rep = True
Exit For
End If
Next X
'pas de correspondance
If Flg_Rep = False Then
MsgBox ("Pas de travail correspondant à " & Rep)
Exit Sub
End If
'ça correspond
Rep = MsgBox(Chr(13) & "Cest bien le travail : " & Range("C" & X) & Chr(13) & _
"pour un prix de " & Range("D" & X) & " € que vous voulez facturer ?", _
vbQuestion + vbYesNo, "Facturation")
If Rep = 6 Then
Range("E" & X) = "OK"
Range("E" & X).Activate
Else
MsgBox ("Tant pis !!!")
End If
End Sub