Bonsoir à tous, voila j'essaie de monter des cellules qui sont écrite pour les mettres à la place de cellules vide. J'ai ce code qui fonctionne :
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 Monter()
Dim PlageSource As Range
 
On Erreur GoTo Erreur
 
Set PlageSource = Application.InputBox _
        ("Sélectionner à partir des cellules vides jusqu'à la dernière cellules à monter ! ", "Sélection Plage", Type:=8)
 
PlageSource.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
 
 
Exit Sub
 
Erreur:
If Err.Number = 424 Then Exit Sub
 
End Sub

Le soucis avec se code est que sa me monte toutes les cellules (même celles qui ne sont pas selectionnée). Est-ce que quelqu'un sait comment faire ? Merci de vos réponse