Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim j As Integer
For i = 1 To 100
For j = 1 To 100
If Cells(i, 4) = Worksheets(2).Cells(j, 2) Then
'If Cells(i, 4) = "Georgie" Or Cells(i, 4) = "France" Or Cells(i, 4) = "Belgique " Or Cells(i, 4) = "Italie"Then
Range(Cells(i, 1), Cells(i, 11)).Interior.Color = RGB(255, 192, 0)
Cells(i, 5) = 0
Cells(i, 7) = 0
End If
Next j
Next i
End Sub