Projet ou bibliothèque introuvable


#1

Bonjour,
après un “nettoyage” de disque et un désinstallation de office XP, (j’utilise office 2010) la macro ci dessous ne fonctionne plus.
Le message d’erreur est dans le sujet et le débogueur me surligne le “c”
merci d’avance pour votre solution

'recopie la ligne de “transfert” vers “année d’archive” en incrémentant d’une ligne à chaque opération

Sheets("Transfert").Select
Rows("1:1").Select
Selection.Copy
Dim caisse
c = 0
    
Sheets("encours").Select
Selection1 = Range("A1:A100")

For Each caisse In Selection1
    If caisse = VIDE Then
    Rows(1 + c).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
Exit For
    End If
c = c + 1
Next caisse
Range("A2").Select

Sheets("Transfert").Select