Merci beaucoup pour votre réponse.
J'ai essayé avec le scan et les numéros se mettent bien à la suite en vert, c'est SUPER.
Il faut maintenant que je décortique le code afin de bien comprendre. (Si vous pouvez me dire à quoi correspond lookat : =x1Part)
Je pensais mettre un autre module pour dire que si la cellule B est verte alors noté NPAI en A.
J'ai trouvé ce type de code mais je ne sais pas ou le mettre :
Function maFonction(laRange AS Range) As String
Application. Volatile
If getColor(laRange)=43 Then maFonction = "NPAI"
End Function
Si vous aviez la gentillesse de m'aider une nouvelle fois je vous en serai reconnaissante.
Une dernière question vous avez noté que vous n'auriez pas fait cette recherche de cette façon, je n'avais rien trouvé tous me renvoyait vers du VBA est-ce vraiment incohérent ? Merci d'avance.