Merci tu me sauves.
Pour la partie où je dois parcourir la colonne, j'avais écrit comme code :
Sub R_22()
Dim line As Integer
Dim last_line As Integer
line = 4
last_line = Range("AC" & Rows.Count).End(xlUp).Row
While line <= last_line
If Cells(line, 31).Value = "No" Then
If Cells(line, 44).Value = "" Then
Worksheets("Error report").Activate
Reste du Code Manquant car trop long
End Sub
Mais maintenant que j'ai une fonction qui sélectionne la colonne, je veux remplacer les numeros de colonne ("31,44'') par la colonne selectionnée. une idée ?