Bonjour voici mon petit programme vba qui ne marche pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Range("b4:b1000"), Target) Is Nothing Then
    If Right(Range.Select, 4) = "CAMP" Then
         Selection.Interior.ColorIndex = 46
    End If
 End If
 End Sub
En clair quand ma cellule change de valeur dans la colonne b, si les 4 premiere lettre de la chaine s'appelle CAMP je met en orange ma case.

En deuxieme temps il ira me chercher des données que je vais ecrire dans les cellule.
(ca je sais faire)
si je met "camp" dans ma cellule B3, il m'affichera en B4 la donnee 1 recuperer, en B5 la donnee 2 etc... Pour ca il faut que je relève le numero de la ligne changé.

Sa marche pas...

De l'aide, help me