Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
[B][COLOR="Red"]x = True[/COLOR][/B]
Sheets("customer list new").Select
[COLOR="red"][B]x = False[/B][/COLOR]
Columns("A:M").Select
Selection.Find(What:=Range("F22").Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, 5).Select
If ActiveCell = "" Then
Sheets("Facture").Select
Range("J14:J15").Select
Selection.Cut
ActiveSheet.Paste
End If