Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Integer
Col = Target.Column
If Col = 2 Or Col = 3 Or Col = 6 Or Col = 7 Or Col = 8 Or Col = 9 Then
Me.Range("B:C,F:G:H:I:").Copy Destination:=Sheets("Evaluation fournisseur").Range("A1")
Application.CutCopyMode = False
End If
End Sub