Bonjour je reviens encore vers vous car j ai reussi a moitier mon code

ci joint le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub macro4

  
   
    sheets("GLOBAL").Select
    For i = 14 To 20
        If Cells(1, i) = Fich Then Exit For
    Next
    Cells(2, i).Select
    ActiveCell.Formula = _
        "=IF(ISNA(VLOOKUP(A2," & Fich & "!A:A,1,FALSE)),"""",""OK"")"
    Selection.AutoFill Destination:=Range(Cells(2, i), Cells(1050, i))    
    Columns(i).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End sub
cette macro a pour but de verifier si dans l onglet global j ai bien les cap qui sont dans l onglet fev2012

le probleme est que je voudrais remplacer la valeur en dur que j ai mis a ce moment du code Cells(1050, i)) 1050 represente le nombre de lignes dans global que pourrais mettre car il se peut que les lignes augmente et cela voudrais dire qu a chaque je devrais remettre en dur le nombre de ligne que j ai